1 # change 'tests => 1' to 'tests => last_test_to_print';
3 use Test::More tests => 3;
10 # Insert your test code below, the Test::More module is use()ed here so read
11 # its man page ( perldoc Test::More ) for help writing this test script.
16 my $irspy_to_zeerex_xsl = 'xsl/irspy2zeerex.xsl';
18 $ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
19 if $irspy_to_zeerex_xsl;
21 my $dbname = ZOOM::IRSpy::connect_to_registry();
22 my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
24 isa_ok( $spy, 'ZOOM::IRSpy' );
26 # test for failure if template not exists
28 $ZOOM::IRSpy::irspy_to_zeerex_xsl = '/nonexist';
29 $ZOOM::IRSpy::xslt_max_depth = 100;
30 $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
33 like( $@, qr/No such file or directory/, "xslt configure test" );