#!perl -Tw

use strict;
use Test::More qw( no_plan );
use DAIA qw(is_uri item);

ok( is_uri("my:foo"), 'exported is_uri (1)' );
ok( !is_uri("123"), 'exported is_uri (0)' );

my $item = item();
isa_ok( $item, 'DAIA::Item' );

my $item2 = item($item);
is_deeply( $item2, $item, 'copy constructor' );

$item->add();
is_deeply( $item, $item2, 'add nothing' );

$item->add(undef);
is_deeply( $item, $item2, 'add undef = nothing' );

$item = item()->part('broader')->message( ["foo","bar"] );

$item = DAIA::parse( '{ "item" : { "id" : "my:id" } }' );
isa_ok( $item, "DAIA::Item" );
is_deeply( $item->struct, { "id" => "my:id" } );