core, basis, extra: Remove DOS line endings from files.

[factor.git] / basis / models / range / range-tests.factor

diff --git a/basis/models/range/range-tests.factor b/basis/models/range/range-tests.factor
index 51f8b06ef56496d3280eb217214f465933f1b433..16a6b8f9bde99a3807f7d39f6accf0b486ff6b28 100644 (file)
--- a/basis/models/range/range-tests.factor
+++ b/basis/models/range/range-tests.factor
@@ -1,40 +1,40 @@
-IN: models.range.tests\r
-USING: arrays generic kernel math models namespaces sequences assocs\r
-tools.test models.range ;\r
-\r
-! Test <range> \r
-: setup-range ( -- range ) 0 0 0 255 1 <range> ;\r
-: setup-stepped-range ( -- range ) 0 0 0 255 2 <range> ;\r
-\r
-! clamp-value should not go past range ends\r
-[ 0   ] [ -10 setup-range clamp-value ] unit-test\r
-[ 255 ] [ 2000 setup-range clamp-value ] unit-test\r
-[ 14  ] [ 14 setup-range clamp-value ] unit-test\r
-\r
-! step-value\r
-[ 14  ] [ 15 setup-stepped-range step-value ] unit-test\r
-\r
-! range min/max/page values should be correct\r
-[ 0 ] [ setup-range range-page-value ] unit-test\r
-[ 0 ] [ setup-range range-min-value ] unit-test\r
-[ 255 ] [ setup-range range-max-value ] unit-test\r
-\r
-! should be able to set the value within the range and get back\r
-[ 15 ] [ setup-range 15 over set-range-value range-value ] unit-test\r
-[ 0 ] [ setup-range -15 over set-range-value range-value ] unit-test\r
-[ 255 ] [ setup-range 4000 over set-range-value range-value ] unit-test\r
-\r
-! should be able to change the range min/max/page value\r
-[ 1 ] [ setup-range 1 over set-range-page-value range-page-value ] unit-test\r
-[ 50 ] [ setup-range 50 over set-range-min-value range-min-value ] unit-test\r
-[ 4000 ] [ setup-range 4000 over set-range-max-value range-max-value ] unit-test\r
-\r
-! should be able to move by positive and negative values\r
-[ 30 ] [ setup-range 30 over move-by range-value ] unit-test\r
-[ 0 ] [ setup-range 30 over move-by -30 over move-by range-value ] unit-test\r
-\r
-! should be able to move by a page of 10\r
-[ 10 ] [ \r
-    setup-range 10 over set-range-page-value \r
-    1 over move-by-page range-value \r
-] unit-test\r
+IN: models.range.tests
+USING: arrays generic kernel math models namespaces sequences assocs
+tools.test models.range ;
+
+! Test <range> 
+: setup-range ( -- range ) 0 0 0 255 1 <range> ;
+: setup-stepped-range ( -- range ) 0 0 0 255 2 <range> ;
+
+! clamp-value should not go past range ends
+[ 0   ] [ -10 setup-range clamp-value ] unit-test
+[ 255 ] [ 2000 setup-range clamp-value ] unit-test
+[ 14  ] [ 14 setup-range clamp-value ] unit-test
+
+! step-value
+[ 14  ] [ 15 setup-stepped-range step-value ] unit-test
+
+! range min/max/page values should be correct
+[ 0 ] [ setup-range range-page-value ] unit-test
+[ 0 ] [ setup-range range-min-value ] unit-test
+[ 255 ] [ setup-range range-max-value ] unit-test
+
+! should be able to set the value within the range and get back
+[ 15 ] [ setup-range 15 over set-range-value range-value ] unit-test
+[ 0 ] [ setup-range -15 over set-range-value range-value ] unit-test
+[ 255 ] [ setup-range 4000 over set-range-value range-value ] unit-test
+
+! should be able to change the range min/max/page value
+[ 1 ] [ setup-range 1 over set-range-page-value range-page-value ] unit-test
+[ 50 ] [ setup-range 50 over set-range-min-value range-min-value ] unit-test
+[ 4000 ] [ setup-range 4000 over set-range-max-value range-max-value ] unit-test
+
+! should be able to move by positive and negative values
+[ 30 ] [ setup-range 30 over move-by range-value ] unit-test
+[ 0 ] [ setup-range 30 over move-by -30 over move-by range-value ] unit-test
+
+! should be able to move by a page of 10
+[ 10 ] [ 
+    setup-range 10 over set-range-page-value 
+    1 over move-by-page range-value 
+] unit-test