From 621cca6b657fd955da0f1e309b0df5d6cf0901e7 Mon Sep 17 00:00:00 2001
From: Simon Tatham <anakin@pobox.com>
Date: Tue, 22 Apr 2014 14:39:21 +0100
Subject: [PATCH] Fix the test script.

---
 test.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/test.pl b/test.pl
index ec92fa9..d68dd9e 100755
--- a/test.pl
+++ b/test.pl
@@ -15,16 +15,16 @@ die "usage: test.pl [-v] [-c COMMAND]\n" unless GetOptions(
 &runtest(4,2,"2");
 &runtest(4,3,"1");
 &runtest(5,2,"1");
-&runtest(5,3,"1.25");
-&runtest(5,4,"1.5");
+&runtest(5,3,"5/4");
+&runtest(5,4,"3/2");
 &runtest(6,2,"2");
 &runtest(6,3,"3");
 &runtest(6,4,"2");
 &runtest(6,5,"2");
 &runtest(7,2,"1");
-&runtest(7,3,"1.25");
-&runtest(7,4,"1.66667");
-&runtest(7,5,"1.66667");
+&runtest(7,3,"5/4");
+&runtest(7,4,"5/3");
+&runtest(7,5,"5/3");
 print "ok\n";
 
 sub runtest {
@@ -43,7 +43,7 @@ sub singletest {
     my $firstline = <$pipe>;
     chomp($firstline);
     die "$cmd: first line of output not as expected:\n$firstline\n"
-        unless $firstline =~ /^(\d+) into (\d+): min fragment ([\d\.e\+\-]+)/;
+        unless $firstline =~ /^(\d+) into (\d+): min fragment ([\d\.e\+\-\/]+)/;
     die "$cmd: min fragment $3, expected $expected\n"
         unless $3 eq $expected;
 }
-- 
2.30.2