mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
d51e2a5bbb
library/array.m:
The current modes for array.map do not match what the implementation
actually does: specifically, map does not destructively update its
input array argument.
Call unsafe_init/3 in a few spots where it is safe to do so.
tests/hard_coded/ho_array_ops.{m,exp}:
Extend this test to cover array.map.
154 lines
2.8 KiB
Plaintext
154 lines
2.8 KiB
Plaintext
TESTING: foldl (empty)
|
|
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl (empty)
|
|
|
|
TESTING: foldl (singleton)
|
|
1
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl (singleton)
|
|
|
|
TESTING: foldl (> 1)
|
|
1 2 3
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl (> 1)
|
|
|
|
TESTING: foldl2 (empty)
|
|
|
|
The sum is 0
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl2 (empty)
|
|
|
|
TESTING: foldl2 (singleton)
|
|
1
|
|
The sum is 1
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl2 (singleton)
|
|
|
|
TESTING: foldl2 (> 1)
|
|
1 2 3
|
|
The sum is 6
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl2 (> 1)
|
|
|
|
TESTING: foldr (empty)
|
|
|
|
RESULT: OK
|
|
FINISHED TESTING: foldr (empty)
|
|
|
|
TESTING: foldr (singleton)
|
|
1
|
|
RESULT: OK
|
|
FINISHED TESTING: foldr (singleton)
|
|
|
|
TESTING: foldr (> 1)
|
|
3 2 1
|
|
RESULT: OK
|
|
FINISHED TESTING: foldr (> 1)
|
|
|
|
TESTING: foldr2 (empty)
|
|
|
|
The sum is 0
|
|
RESULT: OK
|
|
FINISHED TESTING: foldr2 (empty)
|
|
|
|
TESTING: foldr2 (singleton)
|
|
1
|
|
The sum is 1
|
|
RESULT: OK
|
|
FINISHED TESTING: foldr2 (singleton)
|
|
|
|
TESTING: foldr2 (> 1)
|
|
3 2 1
|
|
The sum is 6
|
|
RESULT: OK
|
|
FINISHED TESTING: foldr2 (> 1)
|
|
|
|
TESTING: foldl_corresponding (ok)
|
|
1 - 2
|
|
2 - 4
|
|
3 - 6
|
|
4 - 8
|
|
5 - 10
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl_corresponding (ok)
|
|
|
|
TESTING: foldl_corresponding (empty)
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl_corresponding (empty)
|
|
|
|
TESTING: foldl_corresponding (mismatch)
|
|
RESULT: EXCEPTION: software_error("predicate `array.foldl_corresponding\'/5: Unexpected: mismatched array sizes")
|
|
FINISHED TESTING: foldl_corresponding (mismatch)
|
|
|
|
TESTING: foldl2_corresponding (ok)
|
|
1 - 2
|
|
2 - 4
|
|
3 - 6
|
|
4 - 8
|
|
5 - 10
|
|
Sum is 45.
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl2_corresponding (ok)
|
|
|
|
TESTING: foldl2_corresponding (empty)
|
|
Sum is 0.
|
|
RESULT: OK
|
|
FINISHED TESTING: foldl2_corresponding (empty)
|
|
|
|
TESTING: foldl2_corresponding (mismatch)
|
|
RESULT: EXCEPTION: software_error("predicate `array.foldl2_corresponding\'/7: Unexpected: mismatched array sizes")
|
|
FINISHED TESTING: foldl2_corresponding (mismatch)
|
|
|
|
TESTING: map (pred) (empty)
|
|
array([])
|
|
RESULT: OK
|
|
FINISHED TESTING: map (pred) (empty)
|
|
|
|
TESTING: map (pred) (singleton)
|
|
array(["1"])
|
|
RESULT: OK
|
|
FINISHED TESTING: map (pred) (singleton)
|
|
|
|
TESTING: map (pred) (> 1)
|
|
array(["1", "2", "3"])
|
|
RESULT: OK
|
|
FINISHED TESTING: map (pred) (> 1)
|
|
|
|
TESTING: map (func) (empty)
|
|
array([])
|
|
RESULT: OK
|
|
FINISHED TESTING: map (func) (empty)
|
|
|
|
TESTING: map (func) (singleton)
|
|
array(["1"])
|
|
RESULT: OK
|
|
FINISHED TESTING: map (func) (singleton)
|
|
|
|
TESTING: map (func) (> 1)
|
|
array(["1", "2", "3"])
|
|
RESULT: OK
|
|
FINISHED TESTING: map (func) (> 1)
|
|
|
|
TESTING: map_corresponding_foldl (ok)
|
|
1 + 2 = 3
|
|
2 + 4 = 6
|
|
3 + 6 = 9
|
|
4 + 8 = 12
|
|
5 + 10 = 15
|
|
array([3, 6, 9, 12, 15])
|
|
|
|
RESULT: OK
|
|
FINISHED TESTING: map_corresponding_foldl (ok)
|
|
|
|
TESTING: map_corresponding_foldl (empty)
|
|
array([])
|
|
|
|
RESULT: OK
|
|
FINISHED TESTING: map_corresponding_foldl (empty)
|
|
|
|
TESTING: map_corresponding_foldl (mismatch)
|
|
RESULT: EXCEPTION: software_error("predicate `array.map_corresponding_foldl\'/6: Unexpected: mismatched array sizes")
|
|
FINISHED TESTING: map_corresponding_foldl (mismatch)
|
|
|