unmaintained/regexp/test/regexp.factor

   1 USING: kernel sequences namespaces errors io math tables arrays generic hashtables vectors strings parser ;
   2 USING: prettyprint test ;
   3 USING: regexp-internals regexp ;
   4
   5 [ "dog" ] [ "dog" "cat|dog" make-regexp regexp-match first >string ] unit-test
   6 [ "cat" ] [ "cat" "cat|dog" make-regexp regexp-match first >string ] unit-test
   7 [ "a" ] [ "a" "a|b|c" make-regexp regexp-match first >string ] unit-test
   8 [ "" ] [ "" "a*" make-regexp regexp-match first >string ] unit-test
   9 [ "aaaa" ] [ "aaaa" "a*" make-regexp regexp-match first >string ] unit-test
  10 [ "aaaa" ] [ "aaaa" "a+" make-regexp regexp-match first >string ] unit-test
  11 [ t ] [ "" "a+" make-regexp regexp-match empty? ] unit-test
  12 [ "cadog" ] [ "cadog" "ca(t|d)og" make-regexp regexp-match first >string ] unit-test
  13 [ "catog" ] [ "catog" "ca(t|d)og" make-regexp regexp-match first >string ] unit-test
  14 [ "cadog" ] [ "abcadoghi" "ca(t|d)og" make-regexp regexp-match first >string ] unit-test
  15 [ t ] [ "abcatdoghi" "ca(t|d)og" make-regexp regexp-match empty? ] unit-test
  16
  17 [ "abcdefghijklmnopqrstuvwxyz" ] [ "abcdefghijklmnopqrstuvwxyz" "a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z+" make-regexp regexp-match first >string ] unit-test
  18 [ "aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz" ] [ "aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz" "a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z+" make-regexp regexp-match first >string ] unit-test
  19 [ t ] [ "aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyy" "a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z+" make-regexp regexp-match empty? ] unit-test
  20 [ "abcdefghijklmnopqrstuvwxyz" ] [ "abcdefghijklmnopqrstuvwxyz" "a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s*t*u*v*w*x*y*z*" make-regexp regexp-match first >string ] unit-test
  21 [ "" ] [ "" "a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s*t*u*v*w*x*y*z*" make-regexp regexp-match first >string ] unit-test
  22 [ "az" ] [ "az" "a*b*c*d*e*f*g*h*i*j*k*l*m*n*o*p*q*r*s*t*u*v*w*x*y*z*" make-regexp regexp-match first >string ] unit-test
  23
  24 [ t ] [ "abc" "a?b?c?" make-regexp regexp-match length 3 = ] unit-test
  25 [ "ac" ] [ "ac" "a?b?c?" make-regexp regexp-match first >string ] unit-test
  26 [ "" ] [ "" "a?b?c?" make-regexp regexp-match first >string ] unit-test
  27 [ t ] [ "aabc" "a?b?c?" make-regexp regexp-match length 4 = ] unit-test
  28 [ "abbbccdefefffeffe" ] [ "abbbccdefefffeffe" "(a?b*c+d(e|f)*)+" make-regexp regexp-match first >string ] unit-test
  29 [ t ] [ "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" "a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" make-regexp regexp-match length 29 = ] unit-test
  30