aboutsummaryrefslogtreecommitdiffhomepage
path: root/test
diff options
context:
space:
mode:
authorCalvin Rose <calsrose@gmail.com>2021-01-08 20:57:26 -0600
committerCalvin Rose <calsrose@gmail.com>2021-01-08 22:46:26 -0600
commit2660be875536f483e90d826fea34faaf6605a14b (patch)
tree76ea25262eaa11192767a6a23106ff4ca735a530 /test
parentHandle empty tuple. (diff)
Add regex module to spork.
Diffstat (limited to 'test')
-rw-r--r--test/suite0.janet4
-rw-r--r--test/suite1.janet4
-rw-r--r--test/suite2.janet4
-rw-r--r--test/suite3.janet4
-rw-r--r--test/suite4.janet16
5 files changed, 24 insertions, 8 deletions
diff --git a/test/suite0.janet b/test/suite0.janet
index f5bf558..8f0a3b3 100644
--- a/test/suite0.janet
+++ b/test/suite0.janet
@@ -1,5 +1,5 @@
-(use test/helper)
-(import spork/fmt)
+(use ./helper)
+(import ../spork/fmt)
(start-suite 0)
diff --git a/test/suite1.janet b/test/suite1.janet
index 716d901..879057b 100644
--- a/test/suite1.janet
+++ b/test/suite1.janet
@@ -1,5 +1,5 @@
-(use test/helper)
-(import spork/misc)
+(use ./helper)
+(import ../spork/misc)
(start-suite 1)
(assert (= (misc/dedent " a\n b\n c\n d") "a\n b\n c\n d") "dedent")
diff --git a/test/suite2.janet b/test/suite2.janet
index 7842163..6bd0894 100644
--- a/test/suite2.janet
+++ b/test/suite2.janet
@@ -1,5 +1,5 @@
-(use test/helper)
-(import spork/rpc)
+(use ./helper)
+(import ../spork/rpc)
(start-suite 2)
diff --git a/test/suite3.janet b/test/suite3.janet
index 1d6ac7c..9b845fa 100644
--- a/test/suite3.janet
+++ b/test/suite3.janet
@@ -1,5 +1,5 @@
-(use test/helper)
-(import spork/msg)
+(use ./helper)
+(import ../spork/msg)
(start-suite 3)
diff --git a/test/suite4.janet b/test/suite4.janet
new file mode 100644
index 0000000..68580df
--- /dev/null
+++ b/test/suite4.janet
@@ -0,0 +1,16 @@
+(use ./helper)
+(import ../spork/regex)
+
+(start-suite 4)
+
+(assert (regex/match `abc` `abcdefg`) "match 1")
+(assert (regex/match `a.c` `azcdefg`) "match 2")
+(assert (regex/match `a\s+c` `a cdefg`) "match 3")
+(assert (not (regex/match `a\s+c` `acdefg`)) "match 4")
+
+(assert (regex/match `(?:abc){4}` "abcabcabcabc") "match 5")
+(assert (deep= @["abc" "abc" "abc" "abc"]
+ (regex/match `(?:(abc)){4}` "abcabcabcabc"))
+ "match 6")
+
+(end-suite)