--- trunk/t/3-normalize-set.t	2006/05/12 14:07:08	460
+++ trunk/t/3-normalize-set.t	2006/05/12 14:54:25	461
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 16;
+use Test::More tests => 23;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -86,8 +86,9 @@
 
 sub test_s {
 	my $t = shift || die;
+	$t =~ s/[\n\r\s]+/ /gs;
 	ok(my $v = eval "$t", "eval: $t");
-	ok(! $@, "$t == ".join("|", @{$v}));
+	ok(! $@, "eval error: $@");
 }
 
 {
@@ -145,9 +146,14 @@
 	ok(my $ds = get_ds(), "get_ds");
 	diag "ds = ", Dumper($ds);
 
-	#my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" );
+	clean_ds();
+
+	my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" );
+	$n .= "\n1;\n";
 	#diag "normalize code:\n$n\n";
-	#eval "$n";
-	#warn $@ if ($@);
+	test_s( $n );
+
+	ok($ds = get_ds(), "get_ds");
+	diag "ds = ", Dumper($ds);
 }