/*   testcore
     Author: Giménez, Christian.

     Copyright (C) 2017 Giménez, Christian

     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/>.

     06 ago 2017
*/


:- module(testcore, [	      
	  ]).
/** <module> testcore: Test for Core.

@author Gimenez, Christian
@license GPLv3
*/

:- license(gplv3).

:- use_module('../prolog/ical/core').

:- begin_tests(ical_core).

test(iana_token, []) :-
    iana_token(`BEGIN`, `BEGIN:VCALENDAR`,  `:VCALENDAR`),
    iana_token(`AlPhA192-Alpha`, `AlPhA192-Alpha:AOE`, `:AOE`).

test(x_name, []) :-
    x_name(`X-AB1-AOE123`, `X-AB1-AOE123`, []).


test(param, []) :-
    param(param(`FREQ`,[`YEARLY`]), `FREQ=YEARLY`, []),
    param(param(`FREQ`,[`YEARLY`,`WEEKLY`]), `FREQ=YEARLY,WEEKLY`, []).

test(content_line, []) :-
    content_line(content(`DTSTAMP`,
			[],
			`20170715T005205Z`),
		`DTSTAMP:20170715T005205Z`, []),
    content_line(content(`DTSTART`,
			[param(`VALUE`,[`DATE`])],
			`19780823`),
		 `DTSTART;VALUE=DATE:19780823`, []),
    content_line(content(`DTSTART`,
			 [param(`VALUE`,[`DATE`])],
			 `19780823`),
		 `DTSTART;VALUE=DATE:19780823`, []).



:- end_tests(ical_core).