# Copyright (c) 2008,2011 Oracle and/or its affiliates. All rights reserved.
# Use is subject to license terms.
#
# 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; version 2 of the License.
#
# 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
# USA

package GenTest::Constants;

require Exporter;

@ISA = qw(Exporter);

@EXPORT = qw(
	STATUS_OK
	STATUS_UNKNOWN_ERROR
	STATUS_ANY_ERROR

	STATUS_EOF
	STATUS_ENVIRONMENT_FAILURE
	STATUS_PERL_FAILURE

	STATUS_CUSTOM_OUTCOME

	STATUS_WONT_HANDLE
	STATUS_SKIP

	STATUS_SYNTAX_ERROR
	STATUS_SEMANTIC_ERROR
	STATUS_TRANSACTION_ERROR

	STATUS_TEST_FAILURE

	STATUS_ERROR_MISMATCH_SELECT
	STATUS_LENGTH_MISMATCH_SELECT
	STATUS_CONTENT_MISMATCH_SELECT
	STATUS_SELECT_REDUCTION

	STATUS_ERROR_MISMATCH
	STATUS_LENGTH_MISMATCH
	STATUS_CONTENT_MISMATCH

	STATUS_CRITICAL_FAILURE
	STATUS_SERVER_CRASHED
	STATUS_SERVER_KILLED
	STATUS_REPLICATION_FAILURE
	STATUS_BACKUP_FAILURE
	STATUS_RECOVERY_FAILURE
	STATUS_DATABASE_CORRUPTION
	STATUS_SERVER_DEADLOCKED
	STATUS_VALGRIND_FAILURE
	STATUS_ALARM

	ORACLE_ISSUE_STILL_REPEATABLE
	ORACLE_ISSUE_NO_LONGER_REPEATABLE
	ORACLE_ISSUE_STATUS_UNKNOWN

	DB_UNKNOWN
	DB_DUMMY
	DB_MYSQL
	DB_POSTGRES
	DB_JAVADB
	DB_DRIZZLE

	DEFAULT_MTR_BUILD_THREAD

	constant2text
	status2text
);

use strict;

use constant STATUS_OK				=> 0; ## Suitable for exit code
use constant STATUS_UNKNOWN_ERROR		=> 2;

use constant STATUS_ANY_ERROR			=> 3;	# Used in util/simplify* to not differentiate based on error code

use constant STATUS_EOF				=> 4;	# A module requested that the test is terminated without failure

use constant STATUS_WONT_HANDLE			=> 5;	# A module, e.g. a Validator refuses to handle certain query
use constant STATUS_SKIP			=> 6;	# A Filter specifies that the query should not be processed further

use constant STATUS_SYNTAX_ERROR		=> 21;
use constant STATUS_SEMANTIC_ERROR		=> 22;	# Errors caused by the randomness of the test, e.g. dropping a non-existing table
use constant STATUS_TRANSACTION_ERROR		=> 23;	# Lock wait timeouts, deadlocks, duplicate keys, etc.

use constant STATUS_TEST_FAILURE		=> 24;	# Boundary between genuine errors and false positives due to randomness

use constant STATUS_SELECT_REDUCTION		=> 5;	# A coefficient to substract from error codes in order to make them non-fatal

use constant STATUS_ERROR_MISMATCH_SELECT	=> 26;	# A SELECT query caused those erros, however the test can continue
use constant STATUS_LENGTH_MISMATCH_SELECT	=> 27;	# since the database has not been modified
use constant STATUS_CONTENT_MISMATCH_SELECT		=> 28;	# 

use constant STATUS_ERROR_MISMATCH		=> 31;	# A DML statement caused those errors, and the test can not continue
use constant STATUS_LENGTH_MISMATCH		=> 32;	# because the databases are in an unknown inconsistent state
use constant STATUS_CONTENT_MISMATCH		=> 33;	#

# Higher-priority errors

use constant STATUS_CRITICAL_FAILURE		=> 100;	# Boundary between critical and non-critical errors

use constant STATUS_ENVIRONMENT_FAILURE		=> 110;	# A failure in the environment or the grammar file
use constant STATUS_PERL_FAILURE		=> 255; # Perl died for some reason

use constant STATUS_CUSTOM_OUTCOME		=> 36;	# Used for things such as signaling an EXPLAIN hit from the ExplainMatch Validator

use constant STATUS_SERVER_CRASHED		=> 101;

use constant STATUS_SERVER_KILLED		=> 102;	# Willfull killing of the server, will not be reported as a crash

use constant STATUS_REPLICATION_FAILURE		=> 103;
use constant STATUS_RECOVERY_FAILURE		=> 104;
use constant STATUS_DATABASE_CORRUPTION		=> 105;
use constant STATUS_SERVER_DEADLOCKED		=> 106;
use constant STATUS_BACKUP_FAILURE		=> 107;
use constant STATUS_VALGRIND_FAILURE		=> 108;
use constant STATUS_ALARM			=> 109; # A module, e.g. a Reporter, raises an alarm with critical severity

use constant ORACLE_ISSUE_STILL_REPEATABLE	=> 1;
use constant ORACLE_ISSUE_NO_LONGER_REPEATABLE	=> 0;
use constant ORACLE_ISSUE_STATUS_UNKNOWN	=> 2;

use constant DB_UNKNOWN		=> 0;
use constant DB_DUMMY        => 1;
use constant DB_MYSQL		=> 2;
use constant DB_POSTGRES	=> 3;
use constant DB_JAVADB		=> 4;
use constant DB_DRIZZLE		=> 5;

use constant DEFAULT_MTR_BUILD_THREAD => 930; ## Legacy...

#
# The part below deals with constant value to constant name conversions
#


my %text2value;

sub BEGIN {

	# What we do here is open the Constants.pm file and parse the 'use constant' lines from it
	# The regexp is faily hairy in order to be more permissive.

	open (CONSTFILE, __FILE__) or die "Unable to read constants from ".__FILE__;
	read(CONSTFILE, my $constants_text, -s __FILE__);
	%text2value = $constants_text =~ m{^\s*use\s+constant\s+([A-Z_0-9]*?)\s*=>\s*(\d+)\s*;}mgio;
}

sub constant2text {
	my ($constant_value, $prefix) = @_;

	foreach my $constant_text (keys %text2value) {
		return $constant_text if $text2value{$constant_text} == $constant_value && $constant_text =~ m{^$prefix}si;
	}
	warn "Unable to obtain constant text for constant_value = $constant_value; prefix = $prefix";
	return undef;
}

sub status2text {
	return constant2text($_[0], 'STATUS_');
}

1;
