1 files changed, 39 insertions, 0 deletions
diff --git a/files/practicum/FragsTest.icl b/files/practicum/FragsTest.icl
new file mode 100644
index 0000000..c146994
--- /dev/null
+++ b/files/practicum/FragsTest.icl
@@ -0,0 +1,39 @@
+module FragsTest
+
+/*	Test module Frags
+	Voor werken met Gast: 
+		(*) gebruik Environment 'Gast'
+		(*) zet Project Options op 'Basic Values Only'
+*/
+
+import StdEnv
+import gast
+import Frags
+
+Start						= testn 1000
+								( \xs -> alle_lengtes_komen_voor  xs /\
+								         alle_elementen_zijn_frag xs /\
+								         True
+								)
+
+alle_lengtes_komen_voor		:: [Int] -> Property
+alle_lengtes_komen_voor xs	= name "alle_lengtes_komen_voor"
+							       (let n = length xs
+							         in sort (removeDup (map length (frags xs))) == [0..n]
+							       )
+
+alle_elementen_zijn_frag	:: [Int] -> Property
+alle_elementen_zijn_frag xs	= name "alle_elementen_zijn_frag"
+							       (and [is_frag f xs \\ f <- frags xs])
+
+/*	is_frag fragment lijst is True alleen als fragment een strikte deellijst is
+	van lijst, dwz: de elementen van fragment komen direct achter elkaar in lijst voor.
+*/
+is_frag						:: [a] [a] -> Bool | Eq a
+is_frag [] _				= True
+is_frag _  []				= False
+is_frag [f:fs] [x:xs]
+| f == x
+	| is_frag fs xs			= True
+	| otherwise				= is_frag [f:fs] xs
+| otherwise					= is_frag [f:fs] xs