Micro TDD Prolog

gistfile1.prolog

% test predicate
test(Summary, Predicate) :-
  string_concat('\n ', Summary, Buf),
  string_concat(Buf, ' is running', Message),
  write(Message),
  call(Predicate),
  write('\ndone.').

% example 
force(anakin, 9).
force(luke, 10).

stronger(X, Y) :-
  force(X, FX),
  force(Y, FY),
  FX > FY.

test :-
  test('anakin stronger', (
    stronger(anakin, luke)
  )).

% run tests on compile
:- test.

Thanks for this! I've had a lot of trouble making PL-Unit do what I'd like.
This is a fantastically simple approach.