use v6-alpha;
use Test;

plan 9;

# N.B.:  relational ops are in relational.t

#L<S03/Comparison semantics>

# spaceship comparisons (Num)
is(1 <=> 1, 0,  '1 <=> 1 is same');
is(1 <=> 2, -1, '1 <=> 2 is increase');
is(2 <=> 1, 1,  '2 <=> 1 is decrease');

# leg comparison (Str)
is('a' leg 'a', 0,  'a leg a is same');
is('a' leg 'b', -1, 'a leg b is increase');
is('b' leg 'a', 1,  'b leg a is decrease');

#L<S03/Comparison semantics>
#L<S29/Any/"=item cmp">

# cmp comparison
is('a' cmp 'a', 0,  'a cmp a is same');
is('a' cmp 'b', -1, 'a cmp b is increase');
is('b' cmp 'a', 1,  'b cmp a is decrease');



use v6-alpha;
use Test;

plan 9;

# N.B.:  relational ops are in relational.t

#L<S03/Comparison semantics>

# spaceship comparisons (Num)
is(1 <=> 1, 0,  '1 <=> 1 is same');
is(1 <=> 2, -1, '1 <=> 2 is increase');
is(2 <=> 1, 1,  '2 <=> 1 is decrease');

# leg comparison (Str)
is('a' leg 'a', 0,  'a leg a is same');
is('a' leg 'b', -1, 'a leg b is increase');
is('b' leg 'a', 1,  'b leg a is decrease');

#L<S03/Comparison semantics>

# cmp comparison
is('a' cmp 'a', 0,  'a cmp a is same');
is('a' cmp 'b', -1, 'a cmp b is increase');
is('b' cmp 'a', 1,  'b cmp a is decrease');



Test suite refactoring. Relevant bits for cmp tests have been moved to S29-any
[t/spec] Test suite refactoring. Relevant bits for cmp tests have been moved to S29-any

git-svn-id: 53605643c415f7495558be95614cf14171f1db78@19762 c213334d-75ef-0310-aa23-eaa082d1ae64
