4242 * test list operation
4343 */
4444+!testlist <-
45- Intersect = .collection/list/ intersect( [1 ,2 ,3 ,4 ,5 ], [3 ,4 ,5 ,6 ,7 ], [3 ,8 ,9 ,5 ] );
45+ Intersect = .collection/intersect( [1 ,2 ,3 ,4 ,5 ], [3 ,4 ,5 ,6 ,7 ], [3 ,8 ,9 ,5 ] );
4646 [I1|I2] = Intersect;
47- .generic /print("intersect" , Intersect, I1, I2);
47+ .test /print("intersect" , Intersect, I1, I2);
4848 RI = I1 == 3 && I2 == 5 ;
4949 .test/result( RI, "intersection has been failed" );
5050
51- Union = .collection/list/ union( [1 ,2 ], [3 ,4 ], [4 ,5 ] );
51+ Union = .collection/union( [1 ,2 ], [3 ,4 ], [4 ,5 ] );
5252 [U1|U2|U3|U4|U5] = Union;
53- .generic /print("union" , Union, U1, U2, U3, U4, U5);
53+ .test /print("union" , Union, U1, U2, U3, U4, U5);
5454 RU = U1 == 1 && U2 == 2 && U3 == 3 && U4 == 4 && U5 == 5 ;
5555 .test/result( RU, "union has been failed" );
5656
57- SD = .collection/list/ symmetricdifference( [1 ,2 ,3 ], [3 ,4 ] );
57+ SD = .collection/symmetricdifference( [1 ,2 ,3 ], [3 ,4 ] );
5858 [SD1|SD2|SD3] = SD;
59- .generic /print( "symmetric difference" , SD, SD1, SD2, SD3);
59+ .test /print( "symmetric difference" , SD, SD1, SD2, SD3);
6060 RSD = SD1 == 1 && SD2 == 2 && SD3 == 4 ;
6161 .test/result( RSD, "symmetric difference has been failed" );
6262
63- CP = .collection/list/ complement( [1 ,2 ,3 ,4 ,5 ], [1 ,2 ] );
63+ CP = .collection/complement( [1 ,2 ,3 ,4 ,5 ], [1 ,2 ] );
6464 [CP1|CP2|CP3] = CP;
65- .generic /print("complement" , CP, CP1, CP2, CP3);
65+ .test /print("complement" , CP, CP1, CP2, CP3);
6666 RCP = CP1 == 3 && CP2 == 4 && CP3 == 5 ;
6767 .test/result( RCP, "complement has been failed" )
6868.
0 commit comments