[Patches] [PATCH] [SIGNED-OFF] Added unit tests for Scrubber
koha-patchbot at kohaaloha.com
koha-patchbot at kohaaloha.com
Tue Dec 13 22:05:55 NZDT 2011
From: Duncan Tyler <duncan at duncan-SoT.wgtn.cat-it.co.nz>
Date: Fri, 9 Dec 2011 10:19:14 +1300
Subject: [PATCH] [SIGNED-OFF] Added unit tests for Scrubber
http://bugs.koha-community.org/show_bug.cgi?id=5327
Signed-off-by: Katrin Fischer <Katrin.Fischer.83 at web.de>
Test passes.
---
t/Scrubber.t | 24 +++++++++++++++++++++---
1 files changed, 21 insertions(+), 3 deletions(-)
diff --git a/t/Scrubber.t b/t/Scrubber.t
index ce1503f..0fe3a60 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, at types,$collapse);
$collapse = 1;
- at types = qw(comment tag);
+ at types = qw(default comment tag staff);
$html = q|
<![CDATA[selfdestruct]]]>
<?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";
--
1.7.5.4
More information about the Patches
mailing list