/*   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 <http://www.gnu.org/licenses/>.

     09 jun 2018
*/


:- module(vcard_values_tests, [	      
	  ]).
/** <module> 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).