X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2FScrubber.t;h=0fe3a60e7d0e09bbf394748916fd503d8d30f91e;hb=568f32606c2c9c247b2b477193a2d6814f738fa6;hp=ce1503f0ab119f74a655d76281ae554daff3dc1c;hpb=c0234dd9b9649063acf2617fecf5c6efda38a532;p=koha.git

diff --git a/t/Scrubber.t b/t/Scrubber.t
index ce1503f0ab..0fe3a60e7d 100755
--- a/t/Scrubber.t
+++ b/t/Scrubber.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 19;
 BEGIN {
 	use FindBin;
 	use lib $FindBin::Bin;
@@ -20,7 +20,7 @@ sub pretty_line {
 
 my ($scrubber,$html,$result,@types,$collapse);
 $collapse = 1;
-@types = qw(comment tag);
+@types = qw(default comment tag staff);
 $html = q|
 <![CDATA[selfdestruct]]&#x5d;>
 <?php  echo(" EVIL EVIL EVIL "); ?>    <!-- COMMENT -->
@@ -58,7 +58,7 @@ $collapse and $result =~ s/\s*\n\s*/\n/g;
 print pretty_line('default'), $result, "\n", pretty_line();
 
 foreach(@types) {
-	ok($scrubber = C4::Scrubber->new($_), "Constructor: C4::Scrubber->new($_)");
+	ok($scrubber = C4::Scrubber->new($_), "testing Constructor: C4::Scrubber->new($_)");
 	ok(printf("# scrubber settings: default %s, comment %s, process %s\n",
 		$scrubber->default(),$scrubber->comment(),$scrubber->process()),
 		"Outputting settings from scrubber object (type: $_)"
@@ -67,4 +67,22 @@ foreach(@types) {
 	$collapse and $result =~ s/\s*\n\s*/\n/g;
 	print pretty_line($_), $result, "\n", pretty_line();
 }
+
+print "\n\n######################################################\nStart of invalid tests\n";
+
+#Test for invalid new entry
+eval{
+	C4::Scrubber->new("");
+	fail("test should fail on entry of ''\n");
+};
+pass("Test should have failed on entry of '' (empty string) and it did. YAY!\n");
+
+eval{
+	C4::Scrubber->new("Client");
+	fail("test should fail on entry of 'Client'\n");
+};
+pass("Test should have failed on entry of 'Client' and it did. YAY!\n");
+
+print "######################################################\n";
+
 diag "done.\n";