/* vcard_values_tests
Author: poo.
Copyright (C) 2018 poo
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see .
09 jun 2018
*/
:- module(vcard_values_tests, [
]).
/** vcard_values_tests:
*/
:- use_module('../prolog/vcard_values').
:- begin_tests(vcard_values, []).
test(integer_list) :-
integer_list([1,-2,3,4], `1,-2,+3,4`, []).
test(integer_list) :-
integer_list([1], `1`, []).
test(integer_list) :-
integer_list([-200], `-200`, []).
test(float_list) :-
float_list([39.5], `39.5`, []).
test(date_list) :-
date_list([date(2018,5,29)], `20180529`, []).
test(date_list) :-
date_list([date(2018,5,0)], `2018-05`, []).
test(date_list) :-
date_list([date(0,5,29)], `--0529`, []).
test(date_list) :-
date_list([date(0,5,0)], `--05`, []).
test(date_list) :-
date_list([date(0,0,29)], `---29`, []).
:- end_tests(vcard_values).