fixed some tests

mlabs-haskell · Mar 26, 2024 · e076b6a · e076b6a
1 parent 87fd8cc
commit e076b6a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/tests/TestPurus.hs b/tests/TestPurus.hs
@@ -25,15 +25,15 @@ shouldPassTests = do
   traverse_ runPurusDefault shouldPass
   let misc =  "./tests/purus/passing/Misc/output/Lib/index.cfn"
   uplc1 <- declToUPLC misc "main"
+  writeFile "./tests/purus/passing/Misc/output/Lib/main.plc" (show uplc1)
+  uplc2 <- declToUPLC misc "minus"
+  writeFile "./tests/purus/passing/Misc/output/Lib/fakeminus.plc" (show uplc2)
   defaultMain $
     runPLCProgramTest
     "mainTest"
     (EvaluationSuccess (Constant () (Some (ValueOf DefaultUniInteger 2))),[])
     misc
     "main"
-  writeFile "./tests/purus/passing/Misc/output/Lib/main.plc" (show uplc1)
-  uplc2 <- declToUPLC misc "minus"
-  writeFile "./tests/purus/passing/Misc/output/Lib/fakeminus.plc" (show uplc2)
 
 runPurus :: P.CodegenTarget -> FilePath ->  IO ()
 runPurus target dir =  do

diff --git a/tests/purus/passing/Misc/output/Lib/fakeminus.plc b/tests/purus/passing/Misc/output/Lib/fakeminus.plc
@@ -0,0 +1 @@
+Program {_progAnn = Original (), _progVer = Version {_versionMajor = 1, _versionMinor = 1, _versionPatch = 0}, _progTerm = LamAbs (Original ()) (Name {_nameText = "v", _nameUnique = Unique {unUnique = 86}}) (TyBuiltin (Original ()) (SomeTypeIn DefaultUniInteger)) (LamAbs (Original ()) (Name {_nameText = "v1", _nameUnique = Unique {unUnique = 87}}) (TyBuiltin (Original ()) (SomeTypeIn DefaultUniInteger)) (Constant (Original ()) (Some (ValueOf DefaultUniInteger 42))))}
diff --git a/tests/purus/passing/Misc/output/Lib/main.plc b/tests/purus/passing/Misc/output/Lib/main.plc
@@ -0,0 +1 @@
+Program {_progAnn = Original (), _progVer = Version {_versionMajor = 1, _versionMinor = 1, _versionPatch = 0}, _progTerm = Constant (Original ()) (Some (ValueOf DefaultUniInteger 2))}
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		Program {_progAnn = Original (), _progVer = Version {_versionMajor = 1, _versionMinor = 1, _versionPatch = 0}, _progTerm = LamAbs (Original ()) (Name {_nameText = "v", _nameUnique = Unique {unUnique = 86}}) (TyBuiltin (Original ()) (SomeTypeIn DefaultUniInteger)) (LamAbs (Original ()) (Name {_nameText = "v1", _nameUnique = Unique {unUnique = 87}}) (TyBuiltin (Original ()) (SomeTypeIn DefaultUniInteger)) (Constant (Original ()) (Some (ValueOf DefaultUniInteger 42))))}