#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::NoWarnings;

use Spreadsheet::Read;
    Spreadsheet::Read::parses ("sc") or
	plan skip_all => "No SquirelCalc parser found";

plan tests => 81;

# Base attributes
foreach my $onoff (0, 1) {
    for (   [ ],
	    [ rc   => $onoff ],
	    [ cell => $onoff ],
	    [ rc   => 0, cell => $onoff ],
	    [ rc   => 1, cell => $onoff ],
	    [ clip => $onoff ],
	    [ cell => 0, clip => $onoff ],
	    [ cell => 1, clip => $onoff ],
	    [ attr => $onoff ],
	    [ cell => 0, attr => $onoff ],
	    ) {
	my $ref = ReadData ("files/test.sc", @$_);
	ok ($ref, "Open with options (@$_)");
	ok (ref $ref, "Valid ref");
	   $ref = ReadData ("files/test.sc", { @$_ });
	ok ($ref, "Open with options {@$_}");
	ok (ref $ref, "Valid ref");
	}
    }

# TODO: test and catch unsupported option.
#       Currently they are silently ignored