Some more tests for the Version type.

Author: pmichaud

S02-literals/version.t

@@ -22,11 +22,15 @@ nok v5.2.3 ~~  v5.3.*, '* wildcard (-)';
 nok v1.2   ~~  v1.3+,  'smart-matching and plus (-)';
 ok  v1.2.3 ~~  v1,     'smart-matching only cares about the length of the LHS';
 nok v1.2.3 ~~  v2,     '... but it can still fail';
-is  v1.2  cmp  v1.2,   Same,     'cmp: Same';
-is  v1.2  cmp  v3.2,   Increase, 'cmp: Increase';
-is  v1.2  cmp  v0.2,   Decrease, 'cmp: Decrease';
+is  v1.2   cmp  v1.2,   Same,     'cmp: Same';
+is  v1.2   cmp  v3.2,   Increase, 'cmp: Increase';
+is  v1.2   cmp  v0.2,   Decrease, 'cmp: Decrease';
 #?rakudo todo "NYI"
-is  v1.2  cmp  v1.10,  Increase, "cmp isn't Stringy-based";
+is  v1.2   cmp  v1.10,  Increase, "cmp isn't Stringy-based";
+#?rakudo 3 todo "trailing zeroes fail"
+ok  v1.2   eqv  v1.2.0, 'trailing zeroes are equivalent';
+ok  v1.2.0 eqv  v1.2,   'trailing zeroes are equivalent';
+ok  v1.2.0 eqv  v1.2.0.0.0.0.0,   'trailing zeroes are equivalent';
 
 done;
 

S02-types/version.t

@@ -0,0 +1,54 @@
+use v6;
+use Test;
+
+plan 35;
+
+my sub vtest($cmp, *@v) {
+    my $x = shift @v;
+    while (@v) {
+        my $y = shift @v;
+        is Version.new($x) cmp Version.new($y), $cmp, "$x cmp $y is $cmp";
+        $x = $y;
+    }
+}
+
+# From S03
+vtest Order::Same, 
+    < 1.2.1alpha1.0
+      1.2.1alpha1
+      1.2.1.alpha1
+      1.2.1alpha.1
+      1.2.1.alpha.1
+      1.2-1+alpha/1 >;
+
+# More from S03
+vtest Order::Same,
+    < 1.2.1_01
+      1.2.1_1
+      1.2.1._1
+      1.2.1_1
+      1.2.1._.1
+      001.0002.0000000001._.00000000001
+      1.2.1._.1.0.0.0.0.0 >;
+
+# Still more from S03
+my @sorted = <
+   1.2.0.999
+    1.2.1_01
+    1.2.1_2
+    1.2.1_003
+    1.2.1a1
+    1.2.1.alpha1
+    1.2.1b1
+    1.2.1.beta1
+    1.2.1.gamma
+    1.2.1α1
+    1.2.1β1
+    1.2.1γ
+    1.2.1 >;
+
+vtest Order::Increase, @sorted;
+vtest Order::Decrease, @sorted.reverse;
+
+done;
+