ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 10:02:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

add tests

Browse Source
This commit is contained in:
rovdyl 2019-02-05 20:59:24 -06:00
parent acd9ef133c
commit ec7c615c1e
1 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
tests/lib/number-to-words.hoon Normal file
View File

@ -0,0 +1,68 @@
:: tests for number-to-words
::
/+ number-to-words, *test
::
|%
++ test-eng
;: weld
%+ expect-eq
!> `(unit tape)``"zero"
!> (eng:number-to-words 0)
::
%+ expect-eq
!> `(unit tape)``"one"
!> (eng:number-to-words 1)
::
%+ expect-eq
!> `(unit tape)``"twelve"
!> (eng:number-to-words 12)
::
%+ expect-eq
!> `(unit tape)``"twenty"
!> (eng:number-to-words 20)
::
%+ expect-eq
!> `(unit tape)``"ninety-nine"
!> (eng:number-to-words 99)
::
%+ expect-eq
!> `(unit tape)``"one hundred"
!> (eng:number-to-words 100)
::
%+ expect-eq
!> `(unit tape)``"one hundred and eleven"
!> (eng:number-to-words 111)
::
%+ expect-eq
!> `(unit tape)``"one thousand"
!> (eng:number-to-words 1.000)
::
%+ expect-eq
!> `(unit tape)``"one thousand, one hundred and eleven"
!> (eng:number-to-words 1.111)
::
%+ expect-eq
!> `(unit tape)``"one million and one"
!> (eng:number-to-words 1.000.001)
::
%+ expect-eq
!> `(unit tape)``"one trillion"
!> (eng:number-to-words (pow 10 12))
::
%+ expect-eq
!>
^- (unit tape)
:- ~
;: weld
"eighteen quintillion, four hundred and forty-six quadrillion, seven "
"hundred and forty-four trillion, seventy-three billion, seven "
"hundred and nine million, five hundred and fifty-one thousand, six "
"hundred and sixteen"
==
!> (eng:number-to-words 18.446.744.073.709.551.616)
::
%+ expect-eq
!> `(unit tape)``"one vigintillion"
!> (eng:number-to-words (pow 10 63))
==
--