From 039637ec253de6fd028f67dc237103f96f4f2b96 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 11 Mar 2001 11:05:53 +0000
Subject: check unix.group fail or not

---
 fml/lib/IO/t/append.pl | 17 +++++++++++++++--
 1 file 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;
 
 
-- 
cgit v1.2.1