#!./perl
-# $Id: retrieve.t,v 0.7 2000/08/03 22:04:45 ram Exp $
+# $Id: retrieve.t,v 1.0 2000/09/01 19:40:42 ram Exp $
#
# Copyright (c) 1995-2000, Raphael Manfredi
#
-# You may redistribute only under the terms of the Artistic License,
-# as specified in the README file that comes with the distribution.
+# You may redistribute only under the same terms as Perl 5, as specified
+# in the README file that comes with the distribution.
#
# $Log: retrieve.t,v $
-# Revision 0.7 2000/08/03 22:04:45 ram
-# Baseline for second beta release.
+# Revision 1.0 2000/09/01 19:40:42 ram
+# Baseline for first official release.
#
sub BEGIN {
chdir('t') if -d 't';
- unshift @INC, '../lib';
+ @INC = '.';
+ push @INC, '../lib';
+ require Config; import Config;
+ if ($Config{'extensions'} !~ /\bStorable\b/) {
+ print "1..0 # Skip: Storable was not built\n";
+ exit 0;
+ }
require 'lib/st-dump.pl';
}
print "not " if length $root->[1];
print "ok 14\n";
-END { unlink 'store', 'nstore' }
+END { 1 while unlink('store', 'nstore') }