]> gitweb.factorcode.org Git - factor.git/commitdiff
projects / factor.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 52c1ea3)
fix unit test failures
authorSlava Pestov <slava@factorcode.org>
Wed, 13 Jul 2005 19:34:38 +0000 (19:34 +0000)
committerSlava Pestov <slava@factorcode.org>
Wed, 13 Jul 2005 19:34:38 +0000 (19:34 +0000)
CHANGES.txt patch | blob | history
library/test/crashes.factor patch | blob | history
library/test/httpd/html.factor patch | blob | history
library/test/inspector.factor patch | blob | history
library/test/lists/queues.factor patch | blob | history
library/test/sequences.factor patch | blob | history
native/factor.c patch | blob | history

diff --git a/CHANGES.txt b/CHANGES.txt
index 17ec48a862354ec659e2cc6c5fcabbbc81dce8cb..9c883422c20f9c261bece5f170d317ea4a8d0f39 100644 (file)
--- a/CHANGES.txt
+++ b/CHANGES.txt
@@ -4,8 +4,11 @@ Factor 0.76:
 + Runtime and core library:
 
 - The number of generations used for garbage collection can now be set
-  with the +G command line switch; eg, +G3 is the default. You must
-  specify at least 2 generations.
+  with the +G command line switch. You must specify at least 2
+  generations.
+
+- Only 2 generations are used by default now, since there seems to be no
+  performance benefit to having 3 after running some brief benchmarks.
 
 - New words:
 
diff --git a/library/test/crashes.factor b/library/test/crashes.factor
index f9fda23a92fdfe72770af272dbb4bfb8f8745b09..7c015dc35b0830a9132c69d12caa044b6ddbb750 100644 (file)
--- a/library/test/crashes.factor
+++ b/library/test/crashes.factor
@@ -30,4 +30,4 @@ prettyprint sequences strings test vectors words ;
     full-gc
 ] unit-test
 
-[ ] [ f size ] unit-test
+[ 0 ] [ f size ] unit-test
diff --git a/library/test/httpd/html.factor b/library/test/httpd/html.factor
index 3d3a9100e6fefcd20fc566f7a6073aecdceb69ab..89fd7243b1249e59ef4da751ceb42e70a6eb946d 100644 (file)
--- a/library/test/httpd/html.factor
+++ b/library/test/httpd/html.factor
@@ -1,10 +1,5 @@
 IN: temporary
-USE: html
-USE: namespaces
-USE: io
-USE: strings
-USE: test
-USE: kernel
+USING: html io kernel namespaces styles test ;
 
 [
     "&lt;html&gt;&amp;&apos;sgml&apos;"
@@ -22,7 +17,7 @@ USE: kernel
 [
     [
         ""
-        [ [[ "icon" "library/icons/File.png" ]] ]
+        [ [[ icon "library/icons/File.png" ]] ]
         [ drop ] icon-tag
     ] string-out
 ] unit-test
@@ -37,7 +32,7 @@ USE: kernel
 [ "<span style='color: #ff00ff; font-family: Monospaced; '>car</span>" ]
 [
     [
-        [ [ "fg" 255 0 255 ] [[ "font" "Monospaced" ]] ]
+        [ [ foreground 255 0 255 ] [[ font "Monospaced" ]] ]
         [ drop "car" write ]
         span-tag
     ] string-out
@@ -55,7 +50,7 @@ USE: kernel
 [
     [
         "car"
-        [ [ "fg" 255 0 255 ] [[ "font" "Monospaced" ]] ]
+        [ [ foreground 255 0 255 ] [[ font "Monospaced" ]] ]
         html-write-attr
     ] string-out
 ] unit-test
diff --git a/library/test/inspector.factor b/library/test/inspector.factor
index e38641c249773999222cdedd3bc0ef7823711596..8d32470c8fbb6b78c7b597da70f160175c4cc6e2 100644 (file)
--- a/library/test/inspector.factor
+++ b/library/test/inspector.factor
@@ -1,10 +1,10 @@
 IN: temporary
 USING: test inspector prettyprint math ;
 
-[[ 1 2 ]] inspect .
-[ 1 2 3 ] inspect .
-f inspect .
-\ + inspect .
+[[ 1 2 ]] inspect
+[ 1 2 3 ] inspect
+f inspect
+\ + inspect
 
 [ "hello world how are you" ]
 [ [ "hello" "world" "how" "are" "you" ] " " join ]
diff --git a/library/test/lists/queues.factor b/library/test/lists/queues.factor
index 51d12a7169a542b9c1a27bf55b9e6200ae3a19c5..4ff439e0ef0925a8d488e3dfb211489c9eaab7a5 100644 (file)
--- a/library/test/lists/queues.factor
+++ b/library/test/lists/queues.factor
@@ -5,9 +5,3 @@ USING: kernel lists math sequences test ;
     <queue> [ 1 2 3 4 5 ] [ swap enque ] each
     5 [ drop deque swap ] project nip
 ] unit-test
-
-[ [ 1 4 9 16 25 ] ] [
-    <queue> [ 1 2 3 4 5 ] [ swap enque ] each
-    [ sq ] que-map
-    5 [ drop deque swap ] project nip
-] unit-test
diff --git a/library/test/sequences.factor b/library/test/sequences.factor
index 123bc8afa3f858b2a0410aec504a29038c83047c..be909c15596b491893ff18c7863b35944d5b4615 100644 (file)
--- a/library/test/sequences.factor
+++ b/library/test/sequences.factor
@@ -18,4 +18,4 @@ USING: lists math sequences test vectors ;
 [ 5040 ] [ [ 1 2 3 4 5 6 7 ] 1 [ * ] reduce ] unit-test
 
 [ [ 1 1 2 6 24 120 720 ] ]
-[ [ 1 2 3 4 5 6 7 ] 1 [ * ] accumilate ] unit-test
+[ [ 1 2 3 4 5 6 7 ] 1 [ * ] accumulate ] unit-test
diff --git a/native/factor.c b/native/factor.c
index 44197b90b54983224ecba1f425b4fe8cf8988975..fc3f83ab76463d84da01764ce37f501096e5387c 100644 (file)
--- a/native/factor.c
+++ b/native/factor.c
@@ -37,7 +37,7 @@ int main(int argc, char** argv)
 {
        CELL ds_size = 2048;
        CELL cs_size = 2048;
-       CELL generations = 3;
+       CELL generations = 2;
        CELL young_size = 8;
        CELL aging_size = 16;
        CELL code_size = 2;
Factor programming language