data-out: Convert tests for numeric output formats to Autotest framework.

[pspp] / tests / formats / num-out-decmp.pl

diff --git a/tests/formats/num-out-decmp.pl b/tests/formats/num-out-decmp.pl
deleted file mode 100644 (file)
index 11007c0..0000000
--- a/tests/formats/num-out-decmp.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-use strict;
-use warnings 'all';
-
-my (@line);
-while (<>) {
-    if (my ($n) = /^\*(\d+)$/) {
-       for (1...$n) {
-           $line[1]++;
-           $line[3] = " $line[3]";
-           print ' ', join ('', @line), "\n";
-       }
-    } elsif (my ($suffix) = /^\$(.*)$/) {
-       for my $c (split ('', $suffix)) {
-           $line[1]++;
-           $line[4] .= $c;
-           print ' ', join ('', @line), "\n";
-       }
-    } elsif (my ($prefix) = /^\^(.*)$/) {
-       for my $c (split ('', $prefix)) {
-           $line[1]++;
-           $line[4] = "$c$line[4]";
-           print ' ', join ('', @line), "\n";
-       }
-    } else {
-       @line = /^([A-Z]+)(\d+)([^"]+")( *)([^%"]*)(%?")$/;
-       print " $_";
-    }
-}