removing test.pl

Following up on patch submitted by Colin Campbell, convinced
myself that this was a throwaway test script comitted in error.
Since it isn't of use otherwise, I've elected to remove it
instead of moving it to misc/split_test.pl as Colin proposes.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/test.pl b/test.pl
deleted file mode 100644 (file)
index e4bab7b..0000000
--- a/test.pl
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my $string = $ARGV[0];
-
-# Getting the marcfields as an array
-    my @marcfieldsarray = split('\|', $string);
-
-    # Separating the marcfields from the the user-supplied headers
-    my @marcfields;
-    foreach (@marcfieldsarray) {
-        my @result = split('=', $_);
-       if (scalar(@result) == 2) {
-          push @marcfields, { header => $result[0], field => $result[1] }; 
-       } else {
-          push @marcfields, { field => $result[0] }
-       }
-    }
-
-use Data::Dumper;
-print Dumper(@marcfields);
-
-
-foreach (@marcfields) {
-    print $_->{field};
-}
-
-