From 6ba98a9f9f48e13738d9736cba9c45b5e94f42f2 Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Mon, 14 Apr 2008 21:52:55 -0400
Subject: Initial import

---
 perl/.svn/text-base/test_fallthrough.svn-base | 38 +++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 perl/.svn/text-base/test_fallthrough.svn-base

(limited to 'perl/.svn/text-base/test_fallthrough.svn-base')

diff --git a/perl/.svn/text-base/test_fallthrough.svn-base b/perl/.svn/text-base/test_fallthrough.svn-base
new file mode 100644
index 0000000..50feed8
--- /dev/null
+++ b/perl/.svn/text-base/test_fallthrough.svn-base
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+
+use NASTD;
+
+$nasthole = &NASTD::nast_sphincter_new();
+if (!defined($nasthole)) {
+	exit(1);
+}
+
+@options = &NASTD::nast_options_get($nasthole);
+if (!defined(@options)) {
+	print STDERR "Couldn't get options: " .
+		&NASTD::nast_errmsg($nasthole) . "\n";
+	exit(1);
+}
+
+$options[5] = 1;
+if (&NASTD::nast_options_set($nasthole, @options) == -1) {
+	print STDERR "Couldn't set options: " .
+		&NASTD::nast_errmsg($nasthole) . "\n";
+	exit(1);
+}
+
+if (&NASTD::nast_get($nasthole, "asljkda") == -1) {
+	print STDERR "Couldn't perform get: " .
+		&NASTD::nast_errmsg($nasthole) . "\n";
+	exit(1);
+}
+
+@vals = &NASTD::nast_get_result($nasthole);
+$nitems = $#vals + 1;
+print "Number of columns: " . $nitems . "\n";
+for ($i = 0; $i < $nitems; $i++) {
+	$val = shift(@vals);
+	print "Result[$i]: $val\n";
+}
+
+&NASTD::nast_sphincter_close($nasthole);
-- 
cgit v1.2.3