reorganize file structure to match the upstream requirements

1 files changed, 0 insertions, 19 deletions

diff --git a/pintos-progos/tests/lib.pm b/pintos-progos/tests/lib.pm
deleted file mode 100644
index bc37ae5..0000000
--- a/pintos-progos/tests/lib.pm
+++ /dev/null
@@ -1,19 +0,0 @@
-use strict;
-use warnings;
-
-use tests::random;
-
-sub shuffle {
-    my ($in, $cnt, $sz) = @_;
-    $cnt * $sz == length $in or die;
-    my (@a) = 0...$cnt - 1;
-    for my $i (0...$cnt - 1) {
-        my ($j) = $i + random_ulong () % ($cnt - $i);
-        @a[$i, $j] = @a[$j, $i];
-    }
-    my ($out) = "";
-    $out .= substr ($in, $_ * $sz, $sz) foreach @a;
-    return $out;
-}
-
-1;