Did you know ... | Search Documentation: |
![]() | Packs (add-ons) for SWI-Prolog |
Title: | Automated tests via Test Anything Protocol |
---|---|
Rating: | Not rated. Create the first rating! |
Latest version: | 0.4.0 |
SHA1 sum: | 30a54dee1032cf4880ec95d6c3037726f1be2c7c |
Author: | Michael Hendricks <michael@ndrix.org> |
Maintainer: | Michael Hendricks <michael@ndrix.org> |
Packager: | Michael Hendricks <michael@ndrix.org> |
Home page: | https://github.com/mndrix/tap |
Download URL: | https://github.com/mndrix/tap/archive/v0.4.0.zip |
No reviews. Create the first review!.
Version | SHA1 | #Downloads | URL |
---|---|---|---|
0.0.1 | 89f410ae8ec511e24eeead0226a44b252b892c51 | 1 | http://packs.ndrix.com/tap/tap-0.0.1.tgz |
0.1.0 | 37e8086312349162a5f5d67fbbd2975d41345f66 | 3 | http://packs.ndrix.com/tap/tap-0.1.0.tgz |
0.1.2 | dbd5b55c8abfb7b798f78130c5c2a3cf90a8f033 | 2 | http://packs.ndrix.com/tap/tap-0.1.2.tgz |
0.2.0 | 5de160dcb470f5c810b7e7d3aa51a96ff8bb300c | 2 | http://packs.ndrix.com/tap/tap-0.2.0.tgz |
0.2.1 | 61d05dfccdce3c4237dce669b14bc0735ad74ad1 | 1 | http://packs.ndrix.com/tap/tap-0.2.1.tgz |
0.2.2 | 38bedd090013639dcd50e9905428c1cbcc5dd491 | 1 | http://packs.ndrix.com/tap/tap-0.2.2.tgz |
0.2.3 | dc6b18227092c3bd5fd909c47ea08098a51f403d | 12 | http://packs.ndrix.com/tap/tap-0.2.3.tgz |
0.2.4 | 8619414b212748df645b88f122bd51809be96ed6 | 9 | http://packs.ndrix.com/tap/tap-0.2.4.tgz |
0.3.0 | a7df1eeb094415112484c47eb17170e7d1fef322 | 2 | https://github.com/mndrix/tap/archive/v0.3.0.zip |
0.3.1 | 375fe8e5786df8dea715a09a19643bf082c48a06 | 2 | https://github.com/fnogatz/tap.git |
aa1d51dc560aea6cf424ec8aafa090e362870e07 | 38 | https://github.com/mndrix/tap/archive/v0.3.1.zip | |
0.4.0 | 30a54dee1032cf4880ec95d6c3037726f1be2c7c | 119 | https://github.com/mndrix/tap/archive/v0.4.0.zip |
:- use_module(to_be_tested). % define helper predicates here :- use_module(library(tap)). % define test predicates here 'two plus two is four' :- 4 is 2+2. 'zero not equal to one'(fail) :- 0 =:= 1. 6 is 3*2.
Run tests with standard TAP tools like prove:
$ prove -v -e 'swipl -q -t main -s' t/example.pl TAP version 13 1..3 ok 1 - two plus two is four ok 2 - zero not equal to one ok 3 - 6 is 3*2 ok
The Test Anything Protocol is a text-based interface between test scripts and a test harness. A wide range of tools exist for running, rendering and analyzing test results. By writing your Prolog tests with TAP, you get access to all this testing infrastructure. For example, interactive HTML output.
TAP tests traditionally reside in a t/ directory in your project's
root. Each file beneath t/ encapsulates a collection of tests related
to a specific topic. During development, one can run all test files or
just an interesting subset. In its most basic form, a test file is a
script which generates TAP output. library(tap)
helps you
write these scripts.
To write a test file with library(tap)
, load all code that you'll need
for testing. Define any helper predicates. Then load library(tap)
.
All predicates defined after loading library(tap)
are considered test
cases. The predicate's name is the test name. By default, a
predicate must succeed without leaving any choicepoints for the test
to pass. See Arguments section below to change that behavior.
For small tests (see 6 is 3*2
above), the name can be omitted. The
test body is then used as the test name.
library(tap)
does not yet support the entire TAP specification and is
missing many features found in PlUnit. Both are temporary shortcomings.
I expect the library to fill these gaps eventually.
A test predicate can optionally include arguments to change TAP's expectations about the test. Arguments look like this:
'test with arguments'(Arg1, Arg2, ...) :- ...
Acceptable arguments are:
error(E)
- same as throws(E)
. Supported for symmetry with PlUnit.fail
- test is expected to failfixme(Reason)
- same as todo(Reason)
. Supported for symmetry with PlUnit.todo(Reason)
- test is known to fail but report it in TAP output as "TODO Reason". TAP tools treat these tests differently.todo
- same as todo('')
throws(E)
- throws exception EIt's common for each test case in a test file to follow a similar pattern. For example, we might have tests for the length/2 predicate:
:- use_module(library(tap)). 'length([a,b,c],3)' :- length([a,b,c], N), N = 3. 'length([a,b],2)' :- length([a,b], N), N = 2. ...
Because of all the similarity, that's tedious to write and tedious to read. We can factor out the redundancy by creating a macro:
% ... macro definition goes here ... :- use_module(library(tap)). [a,b,c] -> 3. [a,b] -> 2.
That's much better. A regular term_expansion/2 macro that calls register_test/1 does the job:
term_expansion(List -> Length, (Head :- Test)) :- format(atom(Head), 'length(~w, ~w)', [List, Length]), Test = ( length(List, Len), Len = Length ), tap:register_test(Head).
Without registering, our nicely constructed test case won't run. Macros are especially convenient when testing multiple modes of a single predicate. You can decribe the relationship once and have the macro write a separate test case for each mode.
Using SWI-Prolog 7.1 or later:
?- pack_install(tap).
Source code available and pull requests accepted at https://github.com/mndrix/tap
This module uses semantic versioning.
Pack contains 15 files holding a total of 14.2K bytes.