Make the evaluator's review weights configurable.

[match/match.git] / program / Test.hs

diff --git a/program/Test.hs b/program/Test.hs
index 4d715c4..d0bd6e2 100644 (file)
--- a/program/Test.hs
+++ b/program/Test.hs
@@ -3,25 +3,33 @@ module Test (
        module Test,
        module TestUtils,
        
+       -- Manipulate configurations.
+       module PMConfig,
+       module PMDefaults,
+       
        -- Generate instances.
-       module Instance,
-       module InstanceGenerator,
+       module PMInstance,
+       module PMInstanceGenerator,
        
        -- Solve instances.
        module ProposalMatcher,
-       module PMDefaults,
        
        -- Run randomized things.
        module System.Random,
-       module RandomizedMonad
+       module RandomizedMonad,
+       
+       -- Evaluate.
+       module Evaluation
 ) where
 import TestUtils
-import Instance
-import InstanceGenerator
-import ProposalMatcher
+import PMConfig
 import PMDefaults
+import PMInstance
+import PMInstanceGenerator
+import ProposalMatcher
 import System.Random
 import RandomizedMonad
+import Evaluation
 
 -- Other imports we need
 import BellmanFord
@@ -62,7 +70,7 @@ myPrefs = transposeArray $ listArray ((0,0), (myNumProps-1,myNumRvrs-1)) [
        15, 25, 20, 20, 15
        ] :: UArray (Int, Int) Wt
 
-myInst = Instance myNumRvrs myNumProps (constArray (0, myNumRvrs-1) 1) myPrefs
+myInst = PMInstance myNumRvrs myNumProps (constArray (0, myNumRvrs-1) 1) myPrefs
 
 rdnResult = doReduction pmDefaults myInst
 ReductionResult rrg rrso rrsi rreib rredi = rdnResult