projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perl - added current directory path to calls
[pspp]
/
tests
/
data
/
data-in.at
diff --git
a/tests/data/data-in.at
b/tests/data/data-in.at
index cfe965c5146aa6b9e1fdf18ec336b726716ffa40..0c3a1837911fb5149808216f6dfe7233a83583d4 100644
(file)
--- a/
tests/data/data-in.at
+++ b/
tests/data/data-in.at
@@
-25,7
+25,7
@@
EOF
#! /usr/bin/perl
use strict;
use warnings;
#! /usr/bin/perl
use strict;
use warnings;
-do 'my-rand.pl';
+do '
./
my-rand.pl';
my_rand (1) foreach 1...10000;
our $seed;
die $seed if $seed != 1043618065;
my_rand (1) foreach 1...10000;
our $seed;
die $seed if $seed != 1043618065;
@@
-39,7
+39,7
@@
date_in () {
use strict;
use warnings;
use strict;
use warnings;
-do 'my-rand.pl';
+do '
./
my-rand.pl';
my ($fmt_name, @templates) = @ARGV;
my ($fmt_name, @templates) = @ARGV;
@@
-198,7
+198,7
@@
time_in () {
use strict;
use warnings;
use strict;
use warnings;
-do 'my-rand.pl';
+do '
./
my-rand.pl';
my ($skip, $fmt_name, @templates) = @ARGV;
my ($skip, $fmt_name, @templates) = @ARGV;
@@
-287,7
+287,7
@@
use POSIX;
use strict;
use warnings;
use strict;
use warnings;
-do 'my-rand.pl';
+do '
./
my-rand.pl';
for my $number (0, 1, .5, .015625, 123) {
my ($base_exp) = floor ($number ? log10 ($number) : 0);
for my $number (0, 1, .5, .015625, 123) {
my ($base_exp) = floor ($number ? log10 ($number) : 0);