Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Daniel Kochmański
translate
Commits
abd83384
Commit
abd83384
authored
Sep 10, 2015
by
Daniel Kochmański
Browse files
tests: add prelimitary tests support
Signed-off-by:
Daniel Kochmański
<
daniel@turtleware.eu
>
parent
dff6100a
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests.lisp
0 → 100644
View file @
abd83384
(
require
'rt
)
(
in-package
#:rt
)
;; translations when language is bound to NIL
(
setf
translate:*resolution-time*
:run-time
)
(
deftest
translate.nil-lang.1
(
apply
#'
values
(
let
((
translate:*language*
nil
))
(
mapcar
#'
equal
(
list
#
t
"phrase-1"
#
t
"phrase-2"
#
t
"phrase-3"
)
(
list
"phrase-1"
"phrase-2"
"phrase-3"
))))
T
T
T
)
(
deftest
translate.nil-lang.2
(
apply
#'
values
(
let
((
translate:*language*
nil
))
(
mapcar
#'
equal
'
(
#
t
"phrase-1"
#
t
"phrase-2"
#
t
"phrase-3"
)
'
(
"phrase-1"
"phrase-2"
"phrase-3"
))))
NIL
NIL
NIL
)
(
setf
translate:*resolution-time*
:load-time
)
(
deftest
translate.nil-lang.3
(
apply
#'
values
(
mapcar
#'
equal
(
list
#
t
"phrase-1"
#
t
"phrase-2"
#
t
"phrase-3"
)
(
list
"phrase-1"
"phrase-2"
"phrase-3"
)))
T
T
T
)
(
deftest
translate.nil-lang.4
(
apply
#'
values
(
mapcar
#'
equal
'
(
#
t
"phrase-1"
#
t
"phrase-2"
#
t
"phrase-3"
)
'
(
"phrase-1"
"phrase-2"
"phrase-3"
)))
T
T
T
)
;; translations for defined language
(
setf
translate:*resolution-time*
:run-time
)
(
translate:define-language
'en
"phrase-1"
"Phrase one"
)
(
deftest
translate.en-lang.1
(
apply
#'
values
(
let
((
translate:*language*
'en
))
(
mapcar
#'
equal
(
list
#
t
"phrase-1"
#
t
"phrase-2"
#
t
"phrase-3"
)
(
list
"Phrase one"
"{phrase-2}"
"{phrase-3}"
))))
T
T
T
)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment