3 use Test::More tests => 10;
7 use_ok( 'OpenILS::WWW::SuperCat' );
9 use_ok( 'OpenILS::WWW::SuperCat::Feed' );
10 use_ok( 'OpenILS::Utils::TagURI' );
12 my $tag = 'tag::U2@bre/454{holdings_xml}';
13 my $u = OpenILS::Utils::TagURI->new($tag);
14 is( $u->id, 454, 'parsed correct ID' );
15 is( $u->classname, 'bre', 'parsed correct class name' );
16 is( $u->toURI, $tag, 'can reconstruct unAPI ID' );
19 stdout_like { OpenILS::WWW::SuperCat::unapi2_formats($apache_stub, $u) }
21 'U2 formats list for bre includes marcxml';
23 stdout_unlike { OpenILS::WWW::SuperCat::unapi2_formats($apache_stub, $u) }
25 'U2 formats list for bre does not include xml';
27 my $u2 = OpenILS::Utils::TagURI->new('tag::U2@acn/4');
28 stdout_like { OpenILS::WWW::SuperCat::unapi2_formats($apache_stub, $u2) }
30 'U2 formats list for acn does includes xml';
31 stdout_unlike { OpenILS::WWW::SuperCat::unapi2_formats($apache_stub, $u2) }
33 'U2 formats list for acn does not includes marcxml';