File: pperm.tst

package info (click to toggle)
gap 4.15.1-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 110,212 kB
  • sloc: ansic: 97,261; xml: 48,343; cpp: 13,946; sh: 4,900; perl: 1,650; javascript: 255; makefile: 252; ruby: 9
file content (26 lines) | stat: -rw-r--r-- 677 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#
# Tests for functions defined in src/pperm.cc
#
gap> START_TEST("kernel/pperm.tst");

#
gap> SparsePartialPermNC(fail, fail);
Error, SparsePartialPermNC: <dom> must be a small list (not the value 'fail')
gap> SparsePartialPermNC([1,2], fail);
Error, SparsePartialPermNC: <img> must be a small list (not the value 'fail')
gap> SparsePartialPermNC([1,2], [2]);
Error, SparsePartialPermNC: <dom> must have the same length as <img> (lengths \
are 2 and 1)
gap> SparsePartialPermNC([1,2], [2,3]);
[1,2,3]
gap> dom:=[1..3]; img:=[2..4];
[ 1 .. 3 ]
[ 2 .. 4 ]
gap> SparsePartialPermNC(dom, img);
[1,2,3,4]
gap> dom; img;
[ 1 .. 3 ]
[ 2 .. 4 ]

#
gap> STOP_TEST("kernel/pperm.tst");