#!/usr/bin/perl

# Test cases from Open Formula Specification 1.2 pp25ff
# OpenFormula-v1.2-draft7.odtOpenFormula-v1.2-draft7.odt
# Copyright (C) OASIS Open 2006. All Rights Reserved

use strict;
use warnings;
use lib ('lib', 't/lib');

use SheetTest;
use Test::More tests => 42;

run_tests(against => 't/data/openformula-testsuite.txt');

__DATA__

# Simple AND. 
set A101 formula AND(FALSE(),FALSE())
test A101 0

# Simple AND. 
set A102 formula AND(FALSE(),TRUE())
test A102 0

# Simple AND. 
set A103 formula AND(TRUE(),FALSE())
test A103 0

# Simple AND. 
set A104 formula AND(TRUE(),TRUE())
test A104 1

# Returns an error if given one. 
set A105 formula ISNA(AND(TRUE(),NA()))
test A105 1

# Nonzero considered TRUE. 
set A106 formula AND(1,TRUE())
test A106 1

# Zero considered FALSE. 
set A107 formula AND(0,TRUE())
test A107 0

# More than two parameters okay. 
set A108 formula AND(TRUE(),TRUE(),TRUE())
test A108 1

# One parameter okay - simply returns it. 
set A109 formula AND(TRUE())
test A109 1

# Constant 
set A110 formula FALSE()
test A110 0

# Applications that implement logical values as 0/1 must map TRUE() to 1 
# TB: This test seems broken: if a numer is false, then it *will* =0
# thus returning true.
set A111 formula IF(ISNUMBER(FALSE()),FALSE()=0,FALSE()) 
# test A111 0
test A111 1

# TRUE converts to 1 in Number context 
set A112 formula 2+FALSE() 
test A112 2 

# Simple if. 
set A113 formula IF(FALSE(),7,8)
test A113 8

# Simple if. 
set A114 formula IF(TRUE(),7,8)
test A114 7

# Can return strings, and the two sides need not have equal types 
set A115 formula IF(TRUE(),"HI",8)
test A115 HI

# A non-zero is considered true. 
set A116 formula IF(1,7,8)
test A116 7

# A non-zero is considered true. 
set A117 formula IF(5,7,8)
test A117 7

# A zero is considered false. 
set A118 formula IF(0,7,8)
test A118 8

# The result can be a reference. 
set A119 formula IF(TRUE(),B4,8)
test A119 2

# The result can be a formula. 
set A120 formula IF(TRUE(),B4+5, 8)
test A120 7

# Condition has to be convertible to Logical. 
set A121 formula ISERROR(IF("x",7,8))
test A121 1

# Condition has to be convertible to Logical. 
set A122 formula ISERROR(IF("1",7,8))
test A122 1

# Condition has to be convertible to Logical, empty string is not the same as False 
set A123 formula ISERROR(IF("",7,8))
test A123 1

# Default IfFalse is FALSE 
set A124 formula IF(FALSE(),7)
# test A124 0
TODO testtype A124 n

# Default IfTrue is TRUE 
set A125 formula IF(3)
TODO test A125 1

# Empty parameter is considered 0 
set A126 formula IF(FALSE(),7,)
# test A126 0
TODO testtype A126 n

# Empty parameter is considered 0 
set A127 formula IF(TRUE(),,7)
# test A127 0
TODO testtype A127 n

# If condition is true, ifFalse is not considered - even if it would produce Error. 
set A128 formula IF(TRUE(),4,1/0)
test A128 4

# If condition is false, ifTrue is not considered - even if it would produce Error. 
set A129 formula IF(FALSE(),1/0,5)
test A129 5

# Simple NOT, given FALSE. 
set A130 formula NOT(FALSE())
test A130 1

# Simple NOT, given TRUE. 
set A131 formula NOT(TRUE())
test A131 0

# NOT returns an error if given an error value 
set A132 formula ISERROR(NOT(1/0))
test A132 1

# Simple OR. 
set A133 formula OR(FALSE(),FALSE())
test A133 0

# Simple OR. 
set A134 formula OR(FALSE(),TRUE())
test A134 1

# Simple OR. 
set A135 formula OR(TRUE(),FALSE())
test A135 1

# Simple OR. 
set A136 formula OR(TRUE(),TRUE())
test A136 1

# Returns an error if given one. 
set A137 formula ISNA(OR(FALSE(),NA()))
test A137 1

# More than two parameters okay. 
set A138 formula OR(FALSE(),FALSE(),TRUE())
test A138 1

# One parameter okay - simply returns it 
set A139 formula OR(TRUE())
test A139 1

# Constant. 
set A140 formula TRUE()
test A140 1

# Applications that implement logical values as 0/1 must map TRUE() to 1 
set A141 formula IF(ISNUMBER(TRUE()),TRUE()=1,TRUE())
test A141 1

# TRUE converts to 1 in Number context 
set A142 formula 2+TRUE() 
test A142 3