diff options
| author | fukachan <fukachan> | 2001-02-11 14:24:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-02-11 14:24:03 +0000 |
| commit | 2355c80d0fe7a1a79b355edd83847d3e8a0ef65b (patch) | |
| tree | 70f22ef9809cef8b64ea3d9052564b076529b04c | |
| parent | 6e71682e97b949c80b8166e32a37288a46f801df (diff) | |
| download | fml8-2355c80d0fe7a1a79b355edd83847d3e8a0ef65b.tar.gz fml8-2355c80d0fe7a1a79b355edd83847d3e8a0ef65b.tar.bz2 fml8-2355c80d0fe7a1a79b355edd83847d3e8a0ef65b.zip | |
cleanup
| -rw-r--r-- | regress/base/Makefile | 10 | ||||
| -rwxr-xr-x | regress/base/lock.pl | 6 | ||||
| -rw-r--r-- | regress/base/multipart_io.sh | 3 | ||||
| -rw-r--r-- | regress/simulation/Makefile | 1 |
4 files changed, 16 insertions, 4 deletions
diff --git a/regress/base/Makefile b/regress/base/Makefile new file mode 100644 index 00000000..e4a2b13f --- /dev/null +++ b/regress/base/Makefile @@ -0,0 +1,10 @@ +PERL = perl -I ../../fml/lib -I ../../cpan/lib + +test: + @ echo "* lock test" + @ $(PERL) ../base/lock.pl + @ echo "* checksum test" + @ $(PERL) ../base/md5.pl + @ echo "* multipart operations test" + @ sh ../base/multipart_io.sh + @ sh ../base/multipart_maker.sh diff --git a/regress/base/lock.pl b/regress/base/lock.pl index 788dbf50..562a9357 100755 --- a/regress/base/lock.pl +++ b/regress/base/lock.pl @@ -4,17 +4,17 @@ if ($0 eq __FILE__) { my $r = $lockobj->lock( { file => '/tmp/a' }); if ($r) { - print STDERR "lock ($$) o.k.\n"; + print STDERR "lock ($$) ... ok\n"; } else { print STDERR $lockobj->error, "\n"; } - system "date"; sleep 1; + sleep 1; $r = $lockobj->unlock( { file => '/tmp/a' }); if ($r) { - print STDERR "unlock o.k.\n"; + print STDERR "unlock ... ok\n"; } else { print STDERR $lockobj->error, "\n"; diff --git a/regress/base/multipart_io.sh b/regress/base/multipart_io.sh index 9fee3510..ad97d5b5 100644 --- a/regress/base/multipart_io.sh +++ b/regress/base/multipart_io.sh @@ -12,10 +12,11 @@ trap "rm -f $tmp" 0 1 3 15 DIFF () { local msg=$1 + local file=`basename $msg` sed -n '1,/^$/p' $msg > $tmp perl $dir/multipart_io.pl $msg >> $tmp - diff -ub $msg $tmp && echo ok || echo fail + diff -ub $msg $tmp && echo $file ok || echo $file fail } xdir=$dir/../testmails diff --git a/regress/simulation/Makefile b/regress/simulation/Makefile index dae0b441..21efe34e 100644 --- a/regress/simulation/Makefile +++ b/regress/simulation/Makefile @@ -47,3 +47,4 @@ diff: test: @ echo "* IO::* class test" @ apply perl IO/t/*pl + @ make -f ../base/Makefile |