]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/graphs/graphs-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / basis / graphs / graphs-tests.factor
index 992c5f28f2c767aa84512477b839c9014aaff494..9e06078535a75f8c99ab86fcefc1630ee79cd2bd 100644 (file)
@@ -3,9 +3,9 @@ USING: graphs tools.test namespaces kernel sorting assocs ;
 H{ } "g" set
 { 1 2 3 } "v" set
 
-[ ] [ "v" dup get "g" get add-vertex ] unit-test
+{ } [ "v" dup get "g" get add-vertex ] unit-test
 
-[ { "v" } ] [ 1 "g" get at keys ] unit-test
+{ { "v" } } [ 1 "g" get at keys ] unit-test
 
 H{
     { 1 H{ { 1 1 } { 2 2 } } }
@@ -13,38 +13,38 @@ H{
     { 4 H{ { 4 4 } { 5 5 } } }
 } "g" set
 
-[ { 2 3 4 5 } ] [
+{ { 2 3 4 5 } } [
     2 [ "g" get at ] closure keys natural-sort
 ] unit-test
 
 H{ } "g" set
 
-[ ] [
+{ } [
     "mary"
     H{ { "billy" "one" } { "joey" "two" } }
     "g" get add-vertex*
 ] unit-test
 
-[ H{ { "mary" "one" } } ] [
+{ H{ { "mary" "one" } } } [
     "billy" "g" get at
 ] unit-test
 
-[ ] [
+{ } [
     "liz"
     H{ { "billy" "four" } { "fred" "three" } }
     "g" get add-vertex*
 ] unit-test
 
-[ H{ { "mary" "one" } { "liz" "four" } } ] [
+{ H{ { "mary" "one" } { "liz" "four" } } } [
     "billy" "g" get at
 ] unit-test
 
-[ ] [
+{ } [
     "mary"
     H{ { "billy" "one" } { "joey" "two" } }
     "g" get remove-vertex*
 ] unit-test
 
-[ H{ { "liz" "four" } } ] [
+{ H{ { "liz" "four" } } } [
     "billy" "g" get at
 ] unit-test