steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

upper? was copy/pasted and WRONG. found with extra/lint

db4
Doug Coleman 2008-12-07 01:36:10 -06:00
parent 6f058a30ca
commit 1e53cf6c9f
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/unicode/case/case-tests.factor
View File

@ -16,3 +16,9 @@ USING: unicode.case tools.test namespaces ;
"lt" locale set "lt" locale set
! Lithuanian casing tests ! Lithuanian casing tests
] with-scope ] with-scope
[ t ] [ "asdf" lower? ] unit-test
[ f ] [ "asdF" lower? ] unit-test
[ t ] [ "ASDF" upper? ] unit-test
[ f ] [ "ASDf" upper? ] unit-test

15
basis/unicode/case/case.factor
View File

@ -100,11 +100,10 @@ SYMBOL: locale ! Just casing locale, or overall?
: >case-fold ( string -- fold ) : >case-fold ( string -- fold )
>upper >lower ; >upper >lower ;
: lower? ( string -- ? ) : lower? ( string -- ? ) dup >lower = ;
dup >lower = ;
: upper? ( string -- ? ) : upper? ( string -- ? ) dup >upper = ;
dup >lower = ;
: title? ( string -- ? ) : title? ( string -- ? ) dup >title = ;
dup >title = ;
: case-fold? ( string -- ? ) : case-fold? ( string -- ? ) dup >case-fold = ;
dup >case-fold = ;