check unix.group fail or not

1 files changed, 15 insertions, 2 deletions

diff --git a/fml/lib/IO/t/append.pl b/fml/lib/IO/t/append.pl
index 6b928d7b..86a6b8e5 100755
--- a/fml/lib/IO/t/append.pl
+++ b/fml/lib/IO/t/append.pl
@@ -18,12 +18,11 @@ my $buffer   = time . $$ . "aho ";
 
 
 ### MAIN ###
-print "file map ->add() ";
+print "${map}->add() ";
 
 # prepare
 system "cp $org_file /tmp/";
 
-
 # append
 use IO::MapAdapter;
 my $obj = new IO::MapAdapter $map;
@@ -44,6 +43,20 @@ else {
     system "diff -ub $org_file $file";
 }
 
+
+$map = 'unix.group:fml';
+print "${map}->add()    ... ";
+$obj = new IO::MapAdapter $map;
+eval q{ $obj->add( $buffer ); };
+if ($@) {
+    print "ok\n"; # XXX fail (non null $@) is ok here.
+}
+else {
+    print "fail"        unless $@;
+    print "<", $obj->error, ">" if $obj->error;
+    print "\n";
+}
+
 exit 0;