Combine base,list,contracts

test/Spec.hs

@@ -51,17 +51,15 @@ testStore = StorePath "/tmp/tricu-test-store"
 allTestLibsEnv :: Env
 allTestLibsEnv = unsafePerformIO $ do
   base    <- evaluateFile "./lib/base.tri"
-  list    <- evaluateFile "./lib/list.tri"
   bytes   <- evaluateFile "./lib/bytes.tri"
   bin     <- evaluateFile "./lib/binary.tri"
   http    <- evaluateFile "./lib/http.tri"
   arbor   <- evaluateFile "./lib/arboricx/arboricx.tri"
   io      <- evaluateFile "./lib/io.tri"
   sock    <- evaluateFile "./lib/socket.tri"
-  contracts     <- evaluateFile "./lib/contracts.tri"
   intensional   <- evaluateFile "./lib/intensionalContracts.tri"
   guarded       <- evaluateFile "./lib/guardedBase.tri"
-  pure (Map.unions [base, list, bytes, bin, http, arbor, io, sock, contracts, intensional, guarded])
+  pure (Map.unions [base, bytes, bin, http, arbor, io, sock, intensional, guarded])
 {-# NOINLINE allTestLibsEnv #-}
 
 tests :: TestTree
@@ -1679,7 +1677,7 @@ demos = testGroup "Test provided demo functionality"
       res     <- liftIO $ evaluateFileResult "./demos/contractEffects.tri"
       decodeResult res @?= "[t t, 10]"
   , testCase "Safe base wrappers demo" $ do
-      res     <- liftIO $ evaluateFileResult "./demos/safeBaseWrappers.tri"
+      res     <- liftIO $ evaluateFileResult "./demos/contractBasics.tri"
       decodeResult res @?= "[t t, 1]"
   ]