Sign in
fuchsia
/
third_party
/
swig
/
fc2f0204ba735ea9374933ff947d48fbec0b2deb
/
.
/
Examples
/
test-suite
/
r
/
unittest.R
blob: b55b4a3f36c56532fdacfff64de29220f16a6f26 [
file
] [
log
] [
blame
]
unittest
<-
function
(
x
,
y
)
{
if
(
all
(
x
==
y
))
{
print
(
"PASS"
)
}
else
{
print
(
"FAIL"
)
stop
(
"Test failed"
)
}
}
unittesttol
<-
function
(
x
,
y
,
z
)
{
if
(
all
(
abs
(
x
-
y
)
<
z
))
{
print
(
"PASS"
)
}
else
{
print
(
"FAIL"
)
stop
(
"Test failed"
)
}
}