49 lines
1.5 KiB
Gnuplot
49 lines
1.5 KiB
Gnuplot
|
pending :-
|
||
|
|
current_prolog_flag(argv, ['--all'|_]).
|
||
|
|
pending :-
|
||
|
|
write('\nA TEST IS PENDING!\n'),
|
||
|
|
fail.
|
||
|
|
|
||
|
|
:- begin_tests(wedding_woes).
|
||
|
|
|
||
|
|
test(gustavo_is_chatty, condition(true)) :-
|
||
|
|
chatty(gustavo).
|
||
|
|
|
||
|
|
test(valeria_is_chatty, condition(pending)) :-
|
||
|
|
chatty(valeria).
|
||
|
|
|
||
|
|
test(jaime_is_not_chatty, [fail, condition(pending)]) :-
|
||
|
|
chatty(jaime).
|
||
|
|
|
||
|
|
test(esteban_likes_malena, condition(pending)) :-
|
||
|
|
likes(esteban, malena).
|
||
|
|
|
||
|
|
test(malena_likes_esteban, condition(pending)) :-
|
||
|
|
likes(malena, esteban).
|
||
|
|
|
||
|
|
test(gustavo_likes_valeria, condition(pending)) :-
|
||
|
|
likes(gustavo, valeria).
|
||
|
|
|
||
|
|
test(valeria_does_not_like_gustavo, [fail, condition(pending)]) :-
|
||
|
|
likes(valeria, gustavo).
|
||
|
|
|
||
|
|
test(people_who_like_each_other_make_a_good_pairing, condition(pending)) :-
|
||
|
|
pairing(malena, esteban).
|
||
|
|
|
||
|
|
test(two_chatty_people_make_a_good_pairing, condition(pending)) :-
|
||
|
|
pairing(gustavo, jaime).
|
||
|
|
|
||
|
|
test(one_chatty_person_make_a_good_pairing_with_anyone, condition(pending)) :-
|
||
|
|
pairing(valeria, jaime).
|
||
|
|
|
||
|
|
test(people_who_dont_like_each_other_and_are_not_chatty_dont_make_a_good_pairing, [fail, condition(pending)]) :-
|
||
|
|
pairing(rico, naran).
|
||
|
|
|
||
|
|
test(valid_seating, condition(pending)) :-
|
||
|
|
seating(esteban, malena, gustavo, jaime, valeria).
|
||
|
|
|
||
|
|
test(invalid_seating, [fail, condition(pending)]) :-
|
||
|
|
seating(esteban, jaime, gustavo, malena, valeria).
|
||
|
|
|
||
|
|
:- end_tests(wedding_woes).
|