[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
SF.net SVN: ledger-smb:[2576] trunk
- Subject: SF.net SVN: ledger-smb:[2576] trunk
- From: ..hidden..
- Date: Tue, 28 Apr 2009 00:36:19 +0000
Revision: 2576
http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2576&view=rev
Author: einhverfr
Date: 2009-04-28 00:36:19 +0000 (Tue, 28 Apr 2009)
Log Message:
-----------
More user management stuff
Modified Paths:
--------------
trunk/admin.pl
trunk/t/43-dbtest.t
Added Paths:
-----------
trunk/sql/modules/test/System.sql
Modified: trunk/admin.pl
===================================================================
--- trunk/admin.pl 2009-04-26 00:46:44 UTC (rev 2575)
+++ trunk/admin.pl 2009-04-28 00:36:19 UTC (rev 2576)
@@ -1,115 +1,3 @@
#!/usr/bin/perl
-#
-######################################################################
-# LedgerSMB Accounting and ERP
-# http://www.ledgersmb.org/
-#
-# Copyright (C) 2006
-# This work contains copyrighted information from a number of sources all used
-# with permission.
-#
-# This file contains source code included with or based on SQL-Ledger which
-# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
-# under the GNU General Public License version 2 or, at your option, any later
-# version. For a full list including contact information of contributors,
-# maintainers, and copyright holders, see the CONTRIBUTORS file.
-#
-# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
-# Copyright (C) 2001
-#
-# Author: Dieter Simader
-# Email: ..hidden..
-# Web: http://www.sql-ledger.org
-#
-# Contributors:
-#
-#
-# Web: http://www.ledgersmb.org/
-#
-# Contributors:
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#######################################################################
-#
-# this script sets up the terminal and runs the scripts
-# in bin/$terminal directory
-# admin.pl is linked to this script
-#
-#######################################################################
-use LedgerSMB::Sysconfig;
-require "common.pl";
-
-$| = 1;
-
-if ( $ENV{CONTENT_LENGTH} > $LedgerSMB::Sysconfig::max_post_size ) {
- print "Status: 413\n Request entity too large\n\n";
- die "Error: Request entity too large\n";
-}
-
-if ( $ENV{CONTENT_LENGTH} > 0 ) {
- read( STDIN, $_, $ENV{CONTENT_LENGTH} );
-}
-
-if ( $ENV{QUERY_STRING} ) {
- $_ = $ENV{QUERY_STRING};
-}
-
-if ( $ARGV[0] ) {
- $_ = $ARGV[0];
-}
-
-%form = split /[&=]/;
-
-# fix for apache 2.0 bug
-map { $form{$_} =~ s/\\$// } keys %form;
-
-# name of this script
-$0 =~ tr/\\/\//;
-$pos = rindex $0, '/';
-$script = substr( $0, $pos + 1 );
-
-#this needs to be a db based function
-#if (-e "${LedgerSMB::Sysconfig::userspath}/nologin" && $script ne 'admin.pl') {
-# print "Content-Type: text/html\n\n<html><body><strong>";
-# print "\nLogin disabled!\n";
-# print "\n</strong></body></html>";
-# exit;
-#}
-
-if ( $form{path} ) {
-
- if ( $form{path} ne 'bin/lynx' ) { $form{path} = 'bin/mozilla'; }
-
- $ARGV[0] = "$_&script=$script";
- require "bin/$script";
-
-}
-else {
-
- $form{terminal} = "lynx";
-
- if ( $ENV{HTTP_USER_AGENT} !~ /lynx/i ) {
- $form{terminal} = "mozilla";
- }
-
- $ARGV[0] = "path=bin/$form{terminal}&script=$script";
- map { $ARGV[0] .= "&${_}=$form{$_}" } keys %form;
-
- require "bin/$script";
-
-}
-
-# end of main
-
+require 'lsmb-request.pl';
Added: trunk/sql/modules/test/System.sql
===================================================================
--- trunk/sql/modules/test/System.sql (rev 0)
+++ trunk/sql/modules/test/System.sql 2009-04-28 00:36:19 UTC (rev 2576)
@@ -0,0 +1,47 @@
+BEGIN;
+\i Base.sql
+
+CREATE TABLE test_exempt_funcs (funcname text primary key);
+
+insert into test_exempt_funcs values ('headline');
+insert into test_exempt_funcs values ('rank');
+insert into test_exempt_funcs values ('to_tsquery');
+insert into test_exempt_funcs values ('to_tsvector');
+insert into test_exempt_funcs values ('stat');
+insert into test_exempt_funcs values ('lexize');
+insert into test_exempt_funcs values ('connectby');
+insert into test_exempt_funcs values ('parse');
+insert into test_exempt_funcs values ('set_curprs');
+insert into test_exempt_funcs values ('rank_cd');
+insert into test_exempt_funcs values ('set_curdict');
+insert into test_exempt_funcs values ('set_curcfg');
+insert into test_exempt_funcs values ('token_type');
+insert into test_exempt_funcs values ('crosstab');
+
+INSERT INTO test_result(test_name, success)
+select 'No overloaded functions in current schema', count(*) = 0
+FROM (select proname FROM pg_proc
+ WHERE pronamespace =
+ (select oid from pg_namespace
+ where nspname = current_schema())
+ AND proname NOT IN (select funcname FROM test_exempt_funcs)
+ group by proname
+ having count(*) > 1
+) t;
+
+select proname FROM pg_proc WHERE pronamespace =
+ (select oid from pg_namespace
+ where nspname = current_schema())
+ AND proname NOT IN (select funcname from test_exempt_funcs)
+group by proname
+having count(*) > 1;
+
+SELECT * FROM test_result;
+
+SELECT (select count(*) from test_result where success is true)
+|| ' tests passed and '
+|| (select count(*) from test_result where success is not true)
+|| ' failed' as message;
+
+ROLLBACK;
+
Modified: trunk/t/43-dbtest.t
===================================================================
--- trunk/t/43-dbtest.t 2009-04-26 00:46:44 UTC (rev 2575)
+++ trunk/t/43-dbtest.t 2009-04-28 00:36:19 UTC (rev 2576)
@@ -5,7 +5,7 @@
plan skip_all => 'Skipping all. Told not to test db.';
}
else {
- plan tests => 88;
+ plan tests => 90;
if (defined $ENV{LSMB_NEW_DB}){
$ENV{PGDATABASE} = $ENV{LSMB_NEW_DB};
}
@@ -15,7 +15,7 @@
}
my @testscripts = qw(Account Reconciliation Business_type Company Draft Payment
- Session Voucher);
+ Session Voucher System);
chdir 'sql/modules/test/';
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.