Merge branch 'main' of c57keqcdj43nn2xukakrqm2wwx255et7oyuktopk5fpopzzg54thkjid.onion:evo-trading/HushGP

Merge in new testing changes

README.md

@@ -2,6 +2,7 @@
 A PushGP implementation in Haskell
 
 ## Tasks
+* [ ] refactor Gene to contain *Gene to Gene* for naming consistency.
 * [x] Do test-driven development on this one.
     * [x] Write tests for every function.
     * [x] tests/ are just copied from make-grade, need to write for this project.

src/.ghci

@@ -1,3 +1,3 @@
 :set stop :list
 :set prompt "\ESC[1;34m%s \ESC[0;35mλ>\ESC[m "
-:load Push GP
+:load Main

src/Main.hs

@@ -1,6 +1,3 @@
-module Main where
-
-import Control.Exception (assert)
 import GP
 import Push
 

src/Push.hs

@@ -2,9 +2,10 @@
 
 module Push where
 
--- import Debug.Trace (trace, traceStack)
 import qualified Data.Map as Map
 
+-- import Debug.Trace (trace, traceStack)
+
 -- The exec stack must store heterogenous types,
 -- and we must be able to detect that type at runtime.
 -- One solution is for the exec stack to be a list of [Gene].

tests/.ghci

@@ -0,0 +1,3 @@
+:set stop :list
+:set prompt "\ESC[1;34m%s \ESC[0;35mλ>\ESC[m "
+:load Main ../src/Push ../src/GP

tests/Main.hs

@@ -1,75 +1,27 @@
 import Control.Exception (assert)
-import qualified Data.Map as Map
+import GP
 import Push
-import Test.Hspec
-import Test.Hspec.QuickCheck
-import Test.QuickCheck
 
-exampleState =
-  State
-    { exec = [IntGene 5, StateFunc instructionParameterLoad, StateFunc instructionIntAdd],
-      int = [2, 6, 3],
-      float = [1.2, 1.7],
-      bool = [True, False],
-      string = ["Hello", "Push"],
-      parameter = [IntGene 1, StringGene "Hi", BoolGene True, FloatGene 1.3],
-      input = Map.fromList [("in0", IntGene 1)]
-    }
+intTestFunc :: String -> [Int] -> [Gene] -> State -> IO ()
+intTestFunc name goal genome startState =
+  let state = loadProgram genome startState
+   in assert (goal == int (interpretExec state)) putStrLn (name ++ " passed test.")
 
-prop_test1 :: [Int] -> Bool
-prop_test1 nums = nums == reverse (reverse nums)
 
 main :: IO ()
 main = do
-  quickCheck prop_test1
-  assert ([8, 3] == int (instructionIntAdd exampleState)) putStrLn "Add test pass"
-  assert ([4, 3] == int (instructionIntSub exampleState)) putStrLn "Sub test pass"
-  assert ([12, 3] == int (instructionIntMul exampleState)) putStrLn "Mult test pass"
-  assert ([3, 3] == int (instructionIntDiv exampleState)) putStrLn "Div test pass"
-  assert ([6, 2, 6, 3] == int (interpretExec exampleState)) putStrLn "Interpret test pass"
-
-  let loadedState = loadProgram [IntGene 6, IntGene 6, StateFunc instructionIntAdd] emptyState
-  assert ([12] == int (interpretExec loadedState)) putStrLn "Interpret test 2 pass"
-
-  let loadedState = loadProgram [BoolGene True, StateFunc instructionExecIf, Block [IntGene 5, IntGene 6], Block [IntGene 7, IntGene 8]] emptyState
-  assert ([6, 5] == int (interpretExec loadedState)) putStrLn "execIf"
-
-  let loadedState = loadProgram [BoolGene False, StateFunc instructionExecIf, Block [IntGene 5, IntGene 6], Block [IntGene 7, IntGene 8]] emptyState
-  assert ([8, 7] == int (interpretExec loadedState)) putStrLn "execIf"
-
-  let loadedState = loadProgram [BoolGene False, PlaceInput "in0", StateFunc instructionIntAdd] exampleState
-  assert ([3, 6, 3] == int (interpretExec loadedState)) putStrLn "input map"
-
-  let loadedState = interpretExec $ loadProgram [StateFunc instructionExecDup, IntGene 2] emptyState
-  assert (int loadedState !! 0 == 2 && int loadedState !! 1 == 2) putStrLn "execDup"
-
-  let loadedState = loadProgram [IntGene 2, Block [IntGene 4, IntGene 1, StateFunc instructionExecDoRange], StateFunc instructionIntAdd] emptyState
-  assert ([12] == int (interpretExec loadedState)) putStrLn "execDoRange"
-
-  let loadedState = loadProgram [IntGene 2, Block [IntGene 4, StateFunc instructionExecDoCount], StateFunc instructionIntAdd] emptyState
-  assert ([8] == int (interpretExec loadedState)) putStrLn "execDoCount"
-
-  let loadedState = loadProgram [IntGene 2, Block [IntGene 4, StateFunc instructionExecDoTimes], IntGene 69] emptyState
-  assert ([69, 69, 69, 69, 2] == int (interpretExec loadedState)) putStrLn "execDoTimes"
-
-  let loadedState = loadProgram [BoolGene False, BoolGene True, BoolGene True, StateFunc instructionExecWhile, IntGene 70] emptyState
-  assert ([70, 70] == int (interpretExec loadedState)) putStrLn "execWhile"
-
-  let loadedState = loadProgram [BoolGene False, BoolGene True, BoolGene True, StateFunc instructionExecDoWhile, IntGene 70] emptyState
-  assert ([70, 70, 70] == int (interpretExec loadedState)) putStrLn "execDoWhile"
+  intTestFunc "instructionIntAdd" [8] [IntGene 6, IntGene 2, StateFunc instructionIntAdd] emptyState
+  intTestFunc "instructionIntSub" [4] [IntGene 6, IntGene 2, StateFunc instructionIntSub] emptyState
+  intTestFunc "instructionIntMul" [12] [IntGene 6, IntGene 2, StateFunc instructionIntMul] emptyState
+  intTestFunc "instructionIntDiv" [3] [IntGene 6, IntGene 2, StateFunc instructionIntDiv] emptyState
+  intTestFunc "instructionExecIf" [6, 5] [BoolGene True, StateFunc instructionExecIf, Block [IntGene 5, IntGene 6], Block [IntGene 7, IntGene 8]] emptyState
+  intTestFunc "instructionExecDup" [8] [StateFunc instructionExecDup, IntGene 4, StateFunc instructionIntAdd] emptyState
+  intTestFunc "instructionExecDoRange" [12] [IntGene 2, Block [IntGene 4, IntGene 1, StateFunc instructionExecDoRange], StateFunc instructionIntAdd] emptyState
+  intTestFunc "instructionExecDoCount" [8] [IntGene 2, Block [IntGene 4, StateFunc instructionExecDoCount], StateFunc instructionIntAdd] emptyState
+  intTestFunc "instructionIntAdd" [69, 69, 69, 69, 2] [IntGene 2, Block [IntGene 4, StateFunc instructionExecDoTimes], IntGene 69] emptyState
+  intTestFunc "instructionExecDoTimes" [70, 70] [BoolGene False, BoolGene True, BoolGene True, StateFunc instructionExecWhile, IntGene 70] emptyState
+  intTestFunc "instructionExecWhile" [70, 70, 70] [BoolGene False, BoolGene True, BoolGene True, StateFunc instructionExecDoWhile, IntGene 70] emptyState
+  intTestFunc "instructionExecDoWhile" [71] [BoolGene True, StateFunc instructionExecWhen, IntGene 71] emptyState
 
   let loadedState = loadProgram [BoolGene False, StateFunc instructionExecWhen, IntGene 71] emptyState
-  assert (emptyState == interpretExec loadedState) putStrLn "execWhen"
-
-  let loadedState = loadProgram [BoolGene True, StateFunc instructionExecWhen, IntGene 71] emptyState
-  assert ([71] == int (interpretExec loadedState)) putStrLn "execWhen"
-
-  hspec $ do
-    describe "Prelude.read" $ do
-      it "can parse integers" $ do
-        read "10" `shouldBe` (10 :: Int)
-
-    describe "read" $ do
-      it "is inverse to show" $
-        property $
-          \x -> (read . show) x `shouldBe` (x :: Int)
+  assert (emptyState == interpretExec loadedState) putStrLn "instructionExecWhen passed test."