#!perl -T

use Test;
use strict;
use utf8;
$^W=0;

plan(tests => 17);


# Test 1: See if the module loads

eval 'use Convert::Number::Greek  "num2greek"';
ok($@ eq '');


# Test 2: Lowercase

ok( num2greek(5694) eq '͵εχϟδʹ' );

# Tests 3 & 4: Uppercase 

ok( num2greek(2485, {upper => 1}) eq '͵ΒΥΠΕʹ' );
ok( num2greek(6825, {uc    => 1}) eq '͵ϚΩΚΕʹ' );

# Δοκιμασίες εʹ ὡς ιʹ: Stigma vs. sigma & tau

ok( num2greek(1866) eq '͵αωξϛʹ' );
ok( num2greek(2576, {stigma => 0}) eq '͵βφοστʹ' );
ok( num2greek(8156, {uc     => 1}) eq '͵ΗΡΝϚʹ' );
ok( num2greek(  76, {upper  => 1}) eq 'ΟϚʹ' );
ok( num2greek(4476, {stigma => 0, upper  => 1}) eq '͵ΔΥΟΣΤʹ' );
ok( num2greek(7306, {stigma => 0, uc     => 1}) eq '͵ΖΤΣΤʹ' );

# Tests 11-16: Koppa

ok( num2greek(7795) eq '͵ζψϟεʹ' );
ok( num2greek(3296, {arch_koppa => 1}) eq '͵γσϙϛʹ' );
ok( num2greek(3794, {uc         => 1}) eq '͵ΓΨϞΔʹ' );
ok( num2greek(5296, {upper      => 1}) eq '͵ΕΣϞϚʹ' );
ok( num2greek(5998, {arch_koppa => 1, upper  => 1}) eq '͵ΕϠϘΗʹ' );
ok( num2greek(1790, {arch_koppa => 1, uc     => 1}) eq '͵ΑΨϘʹ' );

# Test 17: No number sign

ok( num2greek(1295, {'numbersign'}) eq '͵ασϟε' );