merge

[irspy-moved-to-github.git] / t / ZOOM-IRSpy.t

diff --git a/t/ZOOM-IRSpy.t b/t/ZOOM-IRSpy.t
index b60bbe0..e9bd612 100644 (file)
--- a/t/ZOOM-IRSpy.t
+++ b/t/ZOOM-IRSpy.t
@@ -1,9 +1,38 @@
-# $Id: ZOOM-IRSpy.t,v 1.1 2007-04-18 11:23:01 mike Exp $
-
 # change 'tests => 1' to 'tests => last_test_to_print';
-use Test::More tests => 1;
-BEGIN { use_ok('ZOOM::IRSpy') };
+
+use Test::More qw(no_plan);
+
+BEGIN {
+    use_ok('ZOOM::IRSpy');
+}
 
 # Insert your test code below, the Test::More module is use()ed here so read
 # its man page ( perldoc Test::More ) for help writing this test script.
 
+use strict;
+use warnings;
+
+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 $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
+
+isa_ok( $spy, 'ZOOM::IRSpy' );
+
+# test for failure if template not exists
+eval {
+    $ZOOM::IRSpy::irspy_to_zeerex_xsl = '/nonexist';
+    $ZOOM::IRSpy::debug = 1;
+    $ZOOM::IRSpy::xslt_max_depth = 100;
+    $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
+};
+
+like( $@, qr/No such file or directory/, "xslt configure test" );
+
+1;
+
+__DATA__;
+foo