From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 2 Feb 2016 19:24:50 +0100 Subject: Moved to 1415 directory --- files/practicum/ZFUpdateAtTest.icl | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 files/practicum/ZFUpdateAtTest.icl (limited to 'files/practicum/ZFUpdateAtTest.icl') diff --git a/files/practicum/ZFUpdateAtTest.icl b/files/practicum/ZFUpdateAtTest.icl deleted file mode 100644 index 2c096bd..0000000 --- a/files/practicum/ZFUpdateAtTest.icl +++ /dev/null @@ -1,23 +0,0 @@ -module ZFUpdateAtTest - -/* Test module ZFUpdateAt - Voor werken met Gast: - (*) gebruik Environment 'Gast' - (*) zet Project Options op 'Basic Values Only' -*/ -import gast -import ZFUpdateAt - -Start - = testn 1000 - (\m n x -> - let l = [1 .. n bitand 0xFF] in - identiek_aan_updateAt m l x /\ - True - ) - -identiek_aan_updateAt :: Int [Int] Int -> Property -identiek_aan_updateAt m l x = name "identiek aan updateAt" - (updateAt m x l == updateAt2 m x l) - /\ - (ForEach [1 .. length l] (\i -> updateAt i x l == updateAt2 i x l)) -- cgit v1.2.3