50 lines
1 KiB
PHP
50 lines
1 KiB
PHP
<?php
|
|
|
|
require_once(DIR_ALVEOLATA . '/pod/wrapper-class.php');
|
|
|
|
|
|
\alveolata\test\add(
|
|
[
|
|
'name' => 'alveolata',
|
|
'sections' => [
|
|
[
|
|
'name' => 'pod',
|
|
'sections' => [
|
|
[
|
|
'active' => true,
|
|
'name' => 'has_get',
|
|
'setup' => function (&$env) {
|
|
$env['safe_division'] = function (int $divident, int $divisor) : pod {
|
|
if ($divisor === 0) {
|
|
return pod::toom();
|
|
}
|
|
else {
|
|
return pod::full(intval(floor($divident/$divisor)));
|
|
}
|
|
};
|
|
},
|
|
'cases' => [
|
|
[
|
|
'name' => 'fail',
|
|
'procedure' => function ($assert, &$env) {
|
|
$result_actual = $env['safe_division'](42, 0);
|
|
$assert->equal($result_actual->has(), false);
|
|
},
|
|
],
|
|
[
|
|
'name' => 'success',
|
|
'procedure' => function ($assert, &$env) {
|
|
$result_actual = $env['safe_division'](42, 7);
|
|
$assert->equal($result_actual->has(), true);
|
|
$assert->equal($result_actual->get(), 6);
|
|
},
|
|
],
|
|
]
|
|
],
|
|
]
|
|
]
|
|
]
|
|
]
|
|
);
|
|
|
|
?>
|