X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FSkipEqAndHashable.scl;fp=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FSkipEqAndHashable.scl;h=4abbf5bf7e76d6c58bef4b93abf1cf5f12941520;hb=fa9b9d56a9a16226e6409724cedfbbe94463b301;hp=0000000000000000000000000000000000000000;hpb=649890ad306df48440a97893d7d53fb8a6386a4e;p=simantics%2Fplatform.git

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/SkipEqAndHashable.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/SkipEqAndHashable.scl
new file mode 100644
index 000000000..4abbf5bf7
--- /dev/null
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/SkipEqAndHashable.scl
@@ -0,0 +1,17 @@
+import "Prelude"
+
+data Foo = Foo Integer
+
+deriving instance Eq Foo
+deriving instance Hashable Foo
+
+data Bar = Bar
+
+instance Eq Bar where
+    _ == _ = True
+instance Hashable Bar where
+    hash _ = 123 
+
+main = ()
+--
+()
\ No newline at end of file