File: scaletest.pl

package info (click to toggle)
sqlrelay 1%3A0.37.1-3.1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 13,084 kB
  • ctags: 6,691
  • sloc: cpp: 48,136; python: 10,118; ansic: 9,673; java: 9,195; php: 8,839; perl: 8,827; sh: 8,554; ruby: 8,516; tcl: 5,039; makefile: 3,665
file content (35 lines) | stat: -rwxr-xr-x 770 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
#! /usr/bin/env perl

# Copyright (c) 2001  David Muse
# See the file COPYING for more information.


use SQLRelay::Connection;
use SQLRelay::Cursor;


# usage...
if ($#ARGV+1<5) {
	print("usage: scaletest.pl host port socket user password");
	exit;
}


# instantiation
$con1=SQLRelay::Connection->new($ARGV[0],$ARGV[1], 
				$ARGV[2],$ARGV[3],$ARGV[4],0,1);
$cur1=SQLRelay::Cursor->new($con1);
$cur1->sendQuery("select 1 from dual");


$con2=SQLRelay::Connection->new($ARGV[0],$ARGV[1], 
				$ARGV[2],$ARGV[3],$ARGV[4],0,1);
$cur2=SQLRelay::Cursor->new($con2);
$cur2->sendQuery("select 1 from dual");



$con3=SQLRelay::Connection->new($ARGV[0],$ARGV[1], 
				$ARGV[2],$ARGV[3],$ARGV[4],0,1);
$cur3=SQLRelay::Cursor->new($con3);
$cur3->sendQuery("select 1 from dual");