@@ -40,13 +40,14 @@ self assert: i < p."
4040
4141{ #category : #tests }
4242PMPermutationTest >> testAsCycles [
43- self assert: PMPermutation new asCycles isEmpty.
44- self assert: (PMPermutation identity: 1 ) asCycles equals: #((1) ).
45- self assert: (PMPermutation identity: 3 ) asCycles equals: #((1) (2 )(3 )).
46- self assert: (PMPermutation ordering: #(3 1 4 2) ) asCycles equals: #((1 3 4 2) ).
47- self assert: (PMPermutation ordering: #(2 4 3 6 7 8 5 1) ) asCycles equals: #((1 2 4 6 8) (3 )(5 7 )).
48- self assert: (PMPermutation ordering: #(5 4 2 3 1) ) asCycles equals: #((1 5) (2 4 3 )).
49- self assert: (PMPermutation ordering: #(1 2 5 3 4 6) ) asCycles equals: #((1) (2 )(3 5 4 )(6 ))
43+
44+ self assertEmpty: PMPermutation new asCycles.
45+ self assert: (PMPermutation identity: 1 ) asCycles equals: #( #( 1 ) ).
46+ self assert: (PMPermutation identity: 3 ) asCycles equals: #( #( 1 ) #( 2 ) #( 3 ) ).
47+ self assert: (PMPermutation ordering: #( 3 1 4 2 ) ) asCycles equals: #( #( 1 3 4 2 ) ).
48+ self assert: (PMPermutation ordering: #( 2 4 3 6 7 8 5 1 ) ) asCycles equals: #( #( 1 2 4 6 8 ) #( 3 ) #( 5 7 ) ).
49+ self assert: (PMPermutation ordering: #( 5 4 2 3 1 ) ) asCycles equals: #( #( 1 5 ) #( 2 4 3 ) ).
50+ self assert: (PMPermutation ordering: #( 1 2 5 3 4 6 ) ) asCycles equals: #( #( 1 ) #( 2 ) #( 3 5 4 ) #( 6 ) )
5051]
5152
5253{ #category : #tests }
@@ -99,16 +100,17 @@ PMPermutationTest >> testExtendTo [
99100
100101{ #category : #' class tests' }
101102PMPermutationTest >> testFromCycles [
102- self assert: (PMPermutation fromCycles: #() ) isEmpty.
103- self assert: (PMPermutation fromCycles: #(#() )) isEmpty.
104- self assert: (PMPermutation fromCycles: #(#(1) )) equals: #(1) .
105- self assert: (PMPermutation size: 3 fromCycles: #() ) equals: #(1 2 3) .
106- self assert: (PMPermutation size: 3 fromCycles: #(#() )) equals: #(1 2 3) .
107- self assert: (PMPermutation fromCycles: #(#(1 3 4 2) )) equals: #(3 1 4 2) .
108- self assert: (PMPermutation fromCycles: #(#(1 2 4 6 8) #(5 7) )) equals: #(2 4 3 6 7 8 5 1) .
109- self assert: (PMPermutation fromCycles: #(#(1 5) #(2 4 3) )) equals: #(5 4 2 3 1) .
110- self assert: (PMPermutation fromCycles: #(#(1) #(3 5 4) #(6) #(2) )) equals: #(1 2 5 3 4 6) .
111- self assert: (PMPermutation size: 6 fromCycles: #(#(3 5 4) )) equals: #(1 2 5 3 4 6)
103+
104+ self assertEmpty: (PMPermutation fromCycles: #( ) ).
105+ self assertEmpty: (PMPermutation fromCycles: #( #( ) )).
106+ self assert: (PMPermutation fromCycles: #( #( 1 ) )) equals: #( 1 ) .
107+ self assert: (PMPermutation size: 3 fromCycles: #( ) ) equals: #( 1 2 3 ) .
108+ self assert: (PMPermutation size: 3 fromCycles: #( #( ) )) equals: #( 1 2 3 ) .
109+ self assert: (PMPermutation fromCycles: #( #( 1 3 4 2 ) )) equals: #( 3 1 4 2 ) .
110+ self assert: (PMPermutation fromCycles: #( #( 1 2 4 6 8 ) #( 5 7 ) )) equals: #( 2 4 3 6 7 8 5 1 ) .
111+ self assert: (PMPermutation fromCycles: #( #( 1 5 ) #( 2 4 3 ) )) equals: #( 5 4 2 3 1 ) .
112+ self assert: (PMPermutation fromCycles: #( #( 1 ) #( 3 5 4 ) #( 6 ) #( 2 ) )) equals: #( 1 2 5 3 4 6 ) .
113+ self assert: (PMPermutation size: 6 fromCycles: #( #( 3 5 4 ) )) equals: #( 1 2 5 3 4 6 )
112114]
113115
114116{ #category : #' class tests' }
0 commit comments