Git-Url:
http://git.frugalware.org/gitweb/gitweb.cgi?p=cfpm.git;a=commitdiff;h=502d4db304f2e1cc51c0204dc1ee0d56963a5418
commit 502d4db304f2e1cc51c0204dc1ee0d56963a5418
Author: James Buren <r...@frugalware.org>
Date: Tue Jul 28 19:31:55 2009 -0500
Test.pas
* upload test case for bindings
diff --git a/Test.pas b/Test.pas
new file mode 100644
index 0000000..16e347e
--- /dev/null
+++ b/Test.pas
@@ -0,0 +1,19 @@
+Program Test;
+
+Uses Pacman;
+
+Var
+ Ret : Integer;
+
+Begin
+WriteLn('Initializing pacman, phase 1.');
+Ret := pacman_initialize(PM_ROOT);
+if Ret = 0 then
+ WriteLn('Success.');
+WriteLn('Initializing pacman, phase 2.');
+Ret := pacman_initialize(PM_ROOT);
+if Ret = -1 then
+ WriteLn('Failure.');
+WriteLn('Releasing pacman.');
+pacman_release;
+End.
_______________________________________________
Frugalware-git mailing list
Frugalware-git@frugalware.org
http://frugalware.org/mailman/listinfo/frugalware-git
