steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/extra/models/history/history-tests.factor

37 lines
927 B
Factor
Raw Normal View History

core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
USING: arrays generic kernel math models namespaces sequences assocs
tools.test models.history accessors ;
IN: models.history.tests
f <history> "history" set
"history" get add-history
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ t } [ "history" get back>> empty? ] unit-test
{ t } [ "history" get forward>> empty? ] unit-test
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
"history" get add-history
3 "history" get set-model
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ t } [ "history" get back>> empty? ] unit-test
{ t } [ "history" get forward>> empty? ] unit-test
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
"history" get add-history
4 "history" get set-model
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ f } [ "history" get back>> empty? ] unit-test
{ t } [ "history" get forward>> empty? ] unit-test
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
"history" get go-back
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ 3 } [ "history" get value>> ] unit-test
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ t } [ "history" get back>> empty? ] unit-test
{ f } [ "history" get forward>> empty? ] unit-test
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
"history" get go-forward
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ 4 } [ "history" get value>> ] unit-test
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ f } [ "history" get back>> empty? ] unit-test
{ t } [ "history" get forward>> empty? ] unit-test