&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 {
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;
}