<?php

#  Copyright (C) 2009 Jason Woofenden
#
#  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 3 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, see <http://www.gnu.org/licenses/>.


# This file contains tests for functions in code/wfpl/format.php
#
# See code/wfpl/test.php for details on how to run or create tests


require_once('code/wfpl/format.php');

function _test_format_money($input, $dollars_correct, $money_correct) {
	$errors = 0;
	$dollars = format_dollars($input);
	$money = format_money($input);
	if($dollars != $dollars_correct) {
		++$errors;
		message("format_dollars(\"$input\") returned \"$dollars\" instead of \"$dollars_correct\"");
	}
	if($money != $money_correct) {
		++$errors;
		message("format_money(\"$input\") returned \"$money\" instead of \"$money_correct\"");
	}

	return $errors;
}

function test_format_money() {
	$errors = 0;
	$errors += _test_format_money('1', '$1', '$1.00');
	$errors += _test_format_money('0', '$0', '$0.00');
	$errors += _test_format_money('0.0', '$0', '$0.00');
	$errors += _test_format_money('0.00', '$0', '$0.00');
	$errors += _test_format_money('0.01', '$0', '$0.01');
	$errors += _test_format_money('0.51', '$1', '$0.51');
	$errors += _test_format_money('2.05', '$2', '$2.05');
	$errors += _test_format_money('2.10000500', '$2', '$2.10');
	$errors += _test_format_money('2.005', '$2', '$2.01');
	$errors += _test_format_money('2.004', '$2', '$2.00');
	$errors += _test_format_money('2.1', '$2', '$2.10');
	$errors += _test_format_money('2.0', '$2', '$2.00');
	$errors += _test_format_money('1000', '$1,000', '$1,000.00');
	$errors += _test_format_money('10000000', '$10,000,000', '$10,000,000.00');
	$errors += _test_format_money('100000000000', '$100,000,000,000', '$100,000,000,000.00');
	$errors += _test_format_money('1.99', '$2', '$1.99');
	$errors += _test_format_money('1.555', '$2', '$1.56');
	$errors += _test_format_money('19.555', '$20', '$19.56');
	$errors += _test_format_money('9.499', '$9', '$9.50');
	$errors += _test_format_money('9.989', '$10', '$9.99');
	$errors += _test_format_money('9.999', '$10', '$10.00');
	$errors += _test_format_money('19999999999.555', '$20,000,000,000', '$19,999,999,999.56');
	return $errors;
}

# returns number of errors
function _test_format_misc($name, $arg, $correct) {
	$function = "format_$name";
	$ret = $function($arg);
	if($ret !== $correct) {
		message("$function($arg) returned \"$ret\" instead of \"$correct\"");
		return 1;
	}
	return 0;
}

# run tests where int, int_0, decimal, positive_decimal should return the same result
function _test_format_int($arg, $correct) {
	if($correct === '') {
		$correct_0 = '0';
	} else {
		$correct_0 = $correct;
	}
	$errons = 0;
	$errors += _test_format_misc('int', $arg, $correct);
	$errors += _test_format_misc('int_0', $arg, $correct_0);
	$errors += _test_format_misc('positive_decimal', $arg, $correct);
	$errors += _test_format_misc('decimal', $arg, $correct);
	return $errors;
}

# returns number of errors
function test_format_misc() {
	$errors = 0;

	$errors += _test_format_misc('caption', 'something', 'Something');
	$errors += _test_format_misc('caption', 'two_words', 'Two Words');
	$errors += _test_format_misc('caption', 'email_special_case', 'E-mail Special Case');
	$errors += _test_format_misc('caption', 'BIG', 'BIG');
	$errors += _test_format_misc('caption', '1,2.3%^&', '1,2.3%^&');

	# test int, int_0, positive_decimal, decimal
	$errors += _test_format_int('', '');
	$errors += _test_format_int('abcdef', '');
	$errors += _test_format_int('0', '0');
	$errors += _test_format_int('00', '0');
	$errors += _test_format_int('0000', '0');
	$errors += _test_format_int('1', '1');
	$errors += _test_format_int('100000000000000000000000000', '100000000000000000000000000');
	$errors += _test_format_int('10000 0000000000000000000000', '100000000000000000000000000');
	$errors += _test_format_int(' 1a2b3c%^&', '123');
	
	$errors += _test_format_misc('int', '-1', '1');
	$errors += _test_format_misc('int', '+1', '1');
	$errors += _test_format_misc('int_0', '-1', '1');
	$errors += _test_format_misc('int_0', '+1', '1');
	$errors += _test_format_misc('positive_decimal', '-1', '1');
	$errors += _test_format_misc('positive_decimal', '+1', '1');
	$errors += _test_format_misc('decimal', '-1', '-1');
	$errors += _test_format_misc('decimal', '+1', '1');

	$errors += _test_format_misc('int', '-1.0', '1');
	$errors += _test_format_misc('int', '+1.0', '1');
	$errors += _test_format_misc('int_0', '-1.0', '1');
	$errors += _test_format_misc('int_0', '+1.0', '1');
	$errors += _test_format_misc('positive_decimal', '-1.0', '1.0');
	$errors += _test_format_misc('positive_decimal', '+1.0', '1.0');
	$errors += _test_format_misc('decimal', '-1.0', '-1.0');
	$errors += _test_format_misc('decimal', '+1.0', '1.0');

	$errors += _test_format_misc('positive_decimal', '1.0', '1.0');
	$errors += _test_format_misc('decimal', '1.0', '1.0');

	# extra zeros after the decimal point
	$errors += _test_format_misc('positive_decimal', '-1.00', '1.0');
	$errors += _test_format_misc('positive_decimal', '+1.00', '1.0');
	$errors += _test_format_misc('decimal', '-1.00', '-1.0');
	$errors += _test_format_misc('decimal', '+1.00', '1.0');
	$errors += _test_format_misc('positive_decimal', '-1.000', '1.0');
	$errors += _test_format_misc('positive_decimal', '+1.000', '1.0');
	$errors += _test_format_misc('decimal', '-1.000', '-1.0');
	$errors += _test_format_misc('decimal', '+1.000', '1.0');
	# important zeros after the decimal point
	$errors += _test_format_misc('positive_decimal', '-1.020', '1.02');
	$errors += _test_format_misc('positive_decimal', '+1.020', '1.02');
	$errors += _test_format_misc('decimal', '-1.020', '-1.02');
	$errors += _test_format_misc('decimal', '+1.020', '1.02');
	$errors += _test_format_misc('positive_decimal', '-1.0020', '1.002');
	$errors += _test_format_misc('positive_decimal', '+1.0020', '1.002');
	$errors += _test_format_misc('decimal', '-1.0020', '-1.002');
	$errors += _test_format_misc('decimal', '+1.0020', '1.002');
	# signs in weird places
	$errors += _test_format_misc('positive_decimal', '-1.-0020', '1.002');
	$errors += _test_format_misc('positive_decimal', '+1.-0020', '1.002');
	$errors += _test_format_misc('decimal', '-1.-0020', '-1.002');
	$errors += _test_format_misc('decimal', '+1.-0020', '1.002');
	$errors += _test_format_misc('positive_decimal', '-1.0-020', '1.002');
	$errors += _test_format_misc('positive_decimal', '+1.0-020', '1.002');
	$errors += _test_format_misc('decimal', '-1.0-020', '-1.002');
	$errors += _test_format_misc('decimal', '+1.0-020', '1.002');
	$errors += _test_format_misc('positive_decimal', '-1-.0020', '1.002');
	$errors += _test_format_misc('positive_decimal', '+1-.0020', '1.002');
	$errors += _test_format_misc('decimal', '-1-.0020', '-1.002');
	$errors += _test_format_misc('decimal', '+1-.0020', '1.002');
	$errors += _test_format_misc('positive_decimal', '--1.0020', '1.002');
	$errors += _test_format_misc('positive_decimal', '+-1.0020', '1.002');
	$errors += _test_format_misc('decimal', '--1.0020', '-1.002');
	$errors += _test_format_misc('decimal', '+-1.0020', '-1.002');


	$errors += _test_format_misc('zip', '', '');
	$errors += _test_format_misc('zip', '12345', '12345');
	$errors += _test_format_misc('zip', 'snt3nvwm4vm2zvw0%^&3-', '34203');
	$errors += _test_format_misc('zip', '123456', '12345-6');
	$errors += _test_format_misc('zip', '1234567890', '12345-67890');


	/* FIXME test these
	format_options($str, $name)
	format_filename($str, $allow_uppercase = false)
	format_path($str, $allow_uppercase = false)
	client_path_to_filename($path)
	format_image_w_h($str)
	format_image_w_h_thumb_w_h($str)
	format_varname($str)
	format_oneline($str)
	format_unix($str)
	format_bool($str)
	format_yesno($str)
	format_email($str)
	format_url($str)
	strplusone($str)
	format_money($str, $display_cents = true)
	format_dollars($str)
	format_mdy_to_ymd($str)
	format_ymd($str)
	format_hours_minutes($str)
	format_hours($str)
	format_12hr_to_hours($str)
	format_phone($str)
	*/

	return $errors;
}

# returns number of errors
function format_unit_tests_main() {
	$errors = 0;
	$errors += test_format_money();
	$errors += test_format_misc();
	return $errors;
}