X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=t%2FZOOM-IRSpy.t;h=daf415ffc542a93f249a4a28a3668f49bbcc9a06;hp=2ed94b32fc9242681f699e984dd2c7f4480ac0ad;hb=06864c9e99435d22aec6ab5328bfe6806e3df4d1;hpb=725e384693a233852f3c3976d26e0c1f1a43f788 diff --git a/t/ZOOM-IRSpy.t b/t/ZOOM-IRSpy.t index 2ed94b3..daf415f 100644 --- a/t/ZOOM-IRSpy.t +++ b/t/ZOOM-IRSpy.t @@ -1,6 +1,6 @@ # change 'tests => 1' to 'tests => last_test_to_print'; -use Test::More qw(no_plan); +use Test::More tests => 3; BEGIN { use_ok('ZOOM::IRSpy'); @@ -17,7 +17,7 @@ my $irspy_to_zeerex_xsl = 'xsl/irspy2zeerex.xsl'; $ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl if $irspy_to_zeerex_xsl; -my $dbname = 'localhost:8018/IR-Explain---1'; +my $dbname = ZOOM::IRSpy::connect_to_registry(); my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" ); isa_ok( $spy, 'ZOOM::IRSpy' ); @@ -25,6 +25,7 @@ isa_ok( $spy, 'ZOOM::IRSpy' ); # test for failure if template not exists eval { $ZOOM::IRSpy::irspy_to_zeerex_xsl = '/nonexist'; + $ZOOM::IRSpy::xslt_max_depth = 100; $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" ); };