#!/usr/bin/perl

# Standard testing of the Parson package which is desinged to 
# receive a JSON stream and pull out date from it.

use strict;
use warnings;
use lib('/home/jeremiah/maemian/');
use Parson;
use Test::More tests => 6;

BEGIN { use_ok( 'Parson' ); }
require_ok( 'Parson' );
my $json_object = Parson->new();
isa_ok($json_object, 'Parson');
like($json_object->file, qr(\/home\/jeremiah\/maemian\/json\.txt), 'Files identical.');
can_ok($json_object, 'parse_json');
my $dsc = $json_object->parse_json();
like($dsc, qr(.*\.dsc$), 'Likely a dsc file');
print "$dsc\n";