From 6a91ddfed026de3524b3de76af9c11bddd90b564 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sun, 25 May 2008 22:05:20 +0200
Subject: [PATCH] mo-merge-tests removed

Merging is already handled by both mo-score and mo-report.
---
 mop/mo-merge-tests | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100755 mop/mo-merge-tests

diff --git a/mop/mo-merge-tests b/mop/mo-merge-tests
deleted file mode 100755
index 03ef1ef..0000000
--- a/mop/mo-merge-tests
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-
-# This script recalculates points according to grouping of testcases.
-# This is no longer necessary, because the score table and report generators
-# already know how to handle merging of groups, but we still keep it as an example.
-
-@ARGV == 1 or die "Usage: mo-merge <task>\n";
-my $task = $ARGV[0];
-foreach my $s (`ls -d testing/*/$task`) {
-	chomp $s;
-	if (! -s "$s/points.old") {
-		if (-s "$s/points") {
-			rename "$s/points", "$s/points.old" or die "Rename $s/points failed: $!";
-		} else {
-			print "$s: NO POINTS?\n";
-			next;
-		}
-	}
-	open X, "$s/points.old" or die;
-	my %tests = ();
-	my %cmts = ();
-	while (<X>) {
-		chomp;
-		my ($test, $subtest, $pts, $cmt) = /^(\d+)([a-z]*)\s+(\d+)\s*(.*)/ or die;
-		if (!exists($tests{$test}) || $tests{$test} > $pts) {
-			$tests{$test} = $pts;
-			$cmts{$test} = $cmt;
-		}
-	}
-	close X;
-	open X, ">$s/points" or die;
-	foreach my $test (sort { $a <=> $b } keys %tests) {
-		print X "$test $tests{$test} $cmts{$test}\n";
-	}
-	close X;
-}
-- 
2.39.2