test that the value in a Data.Var.Var doesn't get converted #435

Author: ryskajakub

tests/VarPtr.hs

@@ -0,0 +1,11 @@
+module VarPtr where
+
+import Data.Var
+
+data Record = Record Int
+
+main = do 
+  v <- newVar $ Record 5
+  subscribeAndRead v $ \y -> case y of
+    Record a -> putStrLn . show $ a
+  set v $ Record 10

tests/VarPtr.res

@@ -0,0 +1,2 @@
+5
+10