Prefix tests with an index.

Author: q-uint

README.md

@@ -14,10 +14,10 @@ $(vessel bin)/moc -r test/add.test.mo
 
 ```text
 📄 Add
-  🟢 add 2
+  0. 🟢 add 2
   
   💬 expected: 12, actual: 10
-  🛑 oops...
+  1. 🛑 oops...
 
 🟢 1/2 | 🛑 1/2
 ```

src/Suite.mo

@@ -63,10 +63,10 @@ module {
                     case (#Test(name, test)) {
                         if (k != 0) print("");
                         if (test(print)) {
-                            print("🟢 " # name);
+                            print(debug_show(k) # ". 🟢 " # name);
                             s.pass();
                         } else {
-                            print("🛑 " # name);
+                            print(debug_show(k) #  ". 🛑 " # name);
                             s.fail();
                         };
                     };

src/SuiteState.mo

@@ -83,10 +83,10 @@ module {
                         _beforeEach(state);
                         if (k != 0) print("");
                         if (test(state, print)) {
-                            print("🟢 " # name);
+                            print(debug_show(k) # ". 🟢 " # name);
                             s.pass();
                         } else {
-                            print("🛑 " # name);
+                            print(debug_show(k) # ". 🛑 " # name);
                             s.fail();
                         };
                         _afterEach(state);