Move match to basis since compiler.tree.debugger uses it, fix conflict

[factor.git] / extra / match / match-tests.factor

diff --git a/extra/match/match-tests.factor b/extra/match/match-tests.factor
deleted file mode 100755 (executable)
index 044b80f..0000000
--- a/extra/match/match-tests.factor
+++ /dev/null
@@ -1,87 +0,0 @@
-! Copyright (C) 2006 Chris Double.
-! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test match namespaces arrays ;
-IN: match.tests
-
-MATCH-VARS: ?a ?b ;
-
-[ f ] [ { ?a ?a } { 1 2 } match ] unit-test
-
-[ H{ { ?a 1 } { ?b 2 } } ] [
- { ?a ?b } { 1 2 } match
-] unit-test
-
-[ { 1 2 } ] [ 
-  { 1 2 } 
-  {
-    { { ?a ?b } [ ?a ?b 2array ] }
-  } match-cond
-] unit-test
-
-[ t ] [ 
-  { 1 2 } 
-  {
-    { { 1 2 } [ t ] }
-    { f [ f ] }
-  } match-cond
-] unit-test
-
-[ t ] [ 
-  { 1 3 } 
-  {
-    { { 1 2 } [ t ] }
-    { { 1 3 } [ t ] }
-  } match-cond
-] unit-test
-
-[ f ] [ 
-  { 1 5 } 
-  {
-    { { 1 2 } [ t ] }
-    { { 1 3 } [ t ] }
-    { _       [ f ] }
-  } match-cond
-] unit-test
-
-TUPLE: foo a b ;
-
-C: <foo> foo
-
-{ 1 2 } [
-  1 2 <foo> T{ foo f ?a ?b } match [
-    ?a ?b
-  ] bind
-] unit-test
-
-{ 1 2 } [
-  1 2 <foo> \ ?a \ ?b <foo> match [
-    ?a ?b
-  ] bind
-] unit-test
-
-{ H{ { ?a ?a } } } [ 
-  \ ?a \ ?a match 
-] unit-test
-
-[ "match" ] [ 
-  "abcd" {
-    { ?a [ "match" ] }
-  } match-cond
-] unit-test
-
-[
-  { 2 1 }
-] [
-  { "a" 1 2 "b" } { _ ?a ?b _ } { ?b ?a } match-replace
-] unit-test
-
-TUPLE: match-replace-test a b ;
-
-[
-    T{ match-replace-test f 2 1 }
-] [
-  T{ match-replace-test f 1 2 }
-  T{ match-replace-test f ?a ?b }
-  T{ match-replace-test f ?b ?a }
-  match-replace
-] unit-test