1 # change 'tests => 1' to 'tests => last_test_to_print';
4 system( "zoomsh", "-e", "open localhost:8018", "quit" );
6 print "1..0 # skip no zebra running on localhost:8018\n";
13 use_ok('ZOOM::IRSpy');
17 # Insert your test code below, the Test::More module is use()ed here so read
18 # its man page ( perldoc Test::More ) for help writing this test script.
23 my $irspy_to_zeerex_xsl = 'xsl/irspy2zeerex.xsl';
25 $ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
26 if $irspy_to_zeerex_xsl;
28 my $dbname = ZOOM::IRSpy::connect_to_registry();
29 my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
31 isa_ok( $spy, 'ZOOM::IRSpy' );
33 # test for failure if template not exists
35 $ZOOM::IRSpy::irspy_to_zeerex_xsl = '/nonexist';
36 $ZOOM::IRSpy::xslt_max_depth = 100;
37 $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
40 like( $@, qr/No such file or directory/, "xslt configure test" );