[open-ils-commits] r13460 - trunk/Open-ILS/src/support-scripts/test-scripts (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-24 13:56:59 -0400 (Wed, 24 Jun 2009)
New Revision: 13460

Added:
   trunk/Open-ILS/src/support-scripts/test-scripts/cstore_simple.pl
Log:
basic cstore communication via opensrf perl

Added: trunk/Open-ILS/src/support-scripts/test-scripts/cstore_simple.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/test-scripts/cstore_simple.pl	                        (rev 0)
+++ trunk/Open-ILS/src/support-scripts/test-scripts/cstore_simple.pl	2009-06-24 17:56:59 UTC (rev 13460)
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+#----------------------------------------------------------------
+# Simple cstore example
+#----------------------------------------------------------------
+
+require '../oils_header.pl';
+use strict; use warnings;
+use OpenSRF::AppSession;
+use OpenILS::Utils::Fieldmapper;
+
+my $config = shift; # path to opensrf_core.xml
+osrf_connect($config); # connect to jabber
+
+my $ses = OpenSRF::AppSession->create("open-ils.cstore");
+$ses->connect;
+
+my $req = $ses->request('open-ils.cstore.transaction.begin');
+my $stat = $req->gather(1);
+die "cannot start transaction\n" unless $stat;
+
+my $btype = Fieldmapper::config::billing_type->new;
+$btype->name('Test 1');
+$btype->owner(1);
+
+$req = $ses->request('open-ils.cstore.direct.config.billing_type.create', $btype);
+$stat = $req->gather(1);
+die "cannot create object\n" unless $stat;
+print "create returned $stat\n";
+
+$req = $ses->request('open-ils.cstore.transaction.rollback');
+$stat = $req->gather(1);
+die "cannot rollback transaction\n" unless $stat;
+
+$ses->disconnect;
+
+


Property changes on: trunk/Open-ILS/src/support-scripts/test-scripts/cstore_simple.pl
___________________________________________________________________
Name: svn:executable
   + *