1 # change 'tests => 1' to 'tests => last_test_to_print';
3 use Test::More qw(no_plan);
9 # Insert your test code below, the Test::More module is use()ed here so read
10 # its man page ( perldoc Test::More ) for help writing this test script.
15 my $irspy_to_zeerex_xsl = 'xsl/irspy2zeerex.xsl';
17 $ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
18 if $irspy_to_zeerex_xsl;
20 my $dbname = 'localhost:8018/IR-Explain---1';
21 my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
23 isa_ok( $spy, 'ZOOM::IRSpy' );
25 # test for failure if template not exists
27 $ZOOM::IRSpy::irspy_to_zeerex_xsl = '/nonexist';
28 $ZOOM::IRSpy::debug = 1;
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" );