JPRED-2 Add sources of all binaries (except alscript) to Git

[jpred.git] / sources / pairwise / Pairwise / t / foo.pl

diff --git a/sources/pairwise/Pairwise/t/foo.pl b/sources/pairwise/Pairwise/t/foo.pl
new file mode 100644 (file)
index 0000000..a159cf2
--- /dev/null
+++ b/sources/pairwise/Pairwise/t/foo.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Pairwise;
+use blib;
+
+open my $f, "../tests/input" or die $!;
+my ($number, @distance) = Pairwise::pairwise($f);
+my @ids = splice @distance, 0, $number;
+
+print "$number, @ids, @distance\n";