[pl] test xpce

[Petr Pisar]

commit 2a6c831baaab0d026b9616619e9455690d46eabd
Author: Petr Písař <ppisar at redhat.com>
Date:   Wed Mar 7 15:06:53 2012 +0100

    test xpce

 tests/xpce/Makefile |    7 +++++++
 tests/xpce/show.pl  |    3 +++
 2 files changed, 10 insertions(+), 0 deletions(-)
---
diff --git a/tests/xpce/Makefile b/tests/xpce/Makefile
new file mode 100644
index 0000000..57376fa
--- /dev/null
+++ b/tests/xpce/Makefile
@@ -0,0 +1,7 @@
+LIBDIR=$(shell readlink $$(type -p swipl) | grep -o lib[^/]*)
+IMAGE=/usr/$(LIBDIR)/swipl-6.0.2/library/pldoc/reload.gif
+
+all: show.pl $(IMAGE)
+	printf "show('%s').\n" $(IMAGE) | swipl -s show.pl
+
+clean:
diff --git a/tests/xpce/show.pl b/tests/xpce/show.pl
new file mode 100644
index 0000000..3d1785b
--- /dev/null
+++ b/tests/xpce/show.pl
@@ -0,0 +1,3 @@
+show(File) :-
+ send(new(P, picture), open),
+ send(P, display, bitmap(File)).