From 25981231405d8df57f6ad5b443207666244aeddb Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Fri, 7 Aug 2020 15:34:13 -0500 Subject: [PATCH] Rename test suites such that it is easier to add more of them. --- meson.build | 21 ++++++++------- test/{suite0.janet => suite0000.janet} | 0 test/{suite1.janet => suite0001.janet} | 0 test/{suite2.janet => suite0002.janet} | 0 test/{suite3.janet => suite0003.janet} | 0 test/{suite4.janet => suite0004.janet} | 0 test/{suite5.janet => suite0005.janet} | 0 test/{suite6.janet => suite0006.janet} | 0 test/{suite7.janet => suite0007.janet} | 0 test/{suite8.janet => suite0008.janet} | 0 test/{suite9.janet => suite0009.janet} | 0 test/suite0010.janet | 37 ++++++++++++++++++++++++++ 12 files changed, 48 insertions(+), 10 deletions(-) rename test/{suite0.janet => suite0000.janet} (100%) rename test/{suite1.janet => suite0001.janet} (100%) rename test/{suite2.janet => suite0002.janet} (100%) rename test/{suite3.janet => suite0003.janet} (100%) rename test/{suite4.janet => suite0004.janet} (100%) rename test/{suite5.janet => suite0005.janet} (100%) rename test/{suite6.janet => suite0006.janet} (100%) rename test/{suite7.janet => suite0007.janet} (100%) rename test/{suite8.janet => suite0008.janet} (100%) rename test/{suite9.janet => suite0009.janet} (100%) create mode 100644 test/suite0010.janet diff --git a/meson.build b/meson.build index 80bb3f13..71abe2e6 100644 --- a/meson.build +++ b/meson.build @@ -214,16 +214,17 @@ docs = custom_target('docs', # Tests test_files = [ - 'test/suite0.janet', - 'test/suite1.janet', - 'test/suite2.janet', - 'test/suite3.janet', - 'test/suite4.janet', - 'test/suite5.janet', - 'test/suite6.janet', - 'test/suite7.janet', - 'test/suite8.janet', - 'test/suite9.janet' + 'test/suite0000.janet', + 'test/suite0001.janet', + 'test/suite0002.janet', + 'test/suite0003.janet', + 'test/suite0004.janet', + 'test/suite0005.janet', + 'test/suite0006.janet', + 'test/suite0007.janet', + 'test/suite0008.janet', + 'test/suite0009.janet', + 'test/suite0010.janet' ] foreach t : test_files test(t, janet_nativeclient, args : files([t]), workdir : meson.current_source_dir()) diff --git a/test/suite0.janet b/test/suite0000.janet similarity index 100% rename from test/suite0.janet rename to test/suite0000.janet diff --git a/test/suite1.janet b/test/suite0001.janet similarity index 100% rename from test/suite1.janet rename to test/suite0001.janet diff --git a/test/suite2.janet b/test/suite0002.janet similarity index 100% rename from test/suite2.janet rename to test/suite0002.janet diff --git a/test/suite3.janet b/test/suite0003.janet similarity index 100% rename from test/suite3.janet rename to test/suite0003.janet diff --git a/test/suite4.janet b/test/suite0004.janet similarity index 100% rename from test/suite4.janet rename to test/suite0004.janet diff --git a/test/suite5.janet b/test/suite0005.janet similarity index 100% rename from test/suite5.janet rename to test/suite0005.janet diff --git a/test/suite6.janet b/test/suite0006.janet similarity index 100% rename from test/suite6.janet rename to test/suite0006.janet diff --git a/test/suite7.janet b/test/suite0007.janet similarity index 100% rename from test/suite7.janet rename to test/suite0007.janet diff --git a/test/suite8.janet b/test/suite0008.janet similarity index 100% rename from test/suite8.janet rename to test/suite0008.janet diff --git a/test/suite9.janet b/test/suite0009.janet similarity index 100% rename from test/suite9.janet rename to test/suite0009.janet diff --git a/test/suite0010.janet b/test/suite0010.janet new file mode 100644 index 00000000..dafb912a --- /dev/null +++ b/test/suite0010.janet @@ -0,0 +1,37 @@ +# Copyright (c) 2020 Calvin Rose & contributors +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to +# deal in the Software without restriction, including without limitation the +# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or +# sell copies of the Software, and to permit persons to whom the Software is +# furnished to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in +# all copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +# IN THE SOFTWARE. + +(import ./helper :prefix "" :exit true) +(start-suite 10) + +# index-of +(assert (= nil (index-of 10 [])) "index-of 1") +(assert (= nil (index-of 10 [1 2 3])) "index-of 2") +(assert (= 1 (index-of 2 [1 2 3])) "index-of 3") +(assert (= 0 (index-of :a [:a :b :c])) "index-of 4") +(assert (= nil (index-of :a {})) "index-of 5") +(assert (= :a (index-of :A {:a :A :b :B})) "index-of 6") +(assert (= :a (index-of :A @{:a :A :b :B})) "index-of 7") +(assert (= 0 (index-of (chr "a") "abc")) "index-of 8") +(assert (= nil (index-of (chr "a") "")) "index-of 9") +(assert (= nil (index-of 10 @[])) "index-of 10") +(assert (= nil (index-of 10 @[1 2 3])) "index-of 11") + +(end-suite)