#OSC.jl
#Copyright (c) 2014, Mark McCurry, All rights reserved.
#
#This library is free software; you can redistribute it and/or
#modify it under the terms of the GNU Lesser General Public
#License as published by the Free Software Foundation; either
#version 3.0 of the License, or (at your option) any later version.
#
#This library 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
#Lesser General Public License for more details.
#
#You should have received a copy of the GNU Lesser General Public
#License along with this library.


using Test
using OSC

test_type = length(ARGS) == 1 ? ARGS[1] : "ALL"


#buffer = Array(UInt8,1024)
#buf_size = rtosc_amessage(buffer, 1024, "/random/address", "sif",
#                          "string", 0xdeadbeef, Float32(12.0))
#println()
##println(buffer)
#println(string(map(x->(hex(x,2)), buffer[1:buf_size])...))
#println(string(map(x->(isprint(Char(x&0x7f)) ? string(Char(x&0x7f)," ") : ". "), buffer[1:buf_size])...))
#println("argument string is=", rtosc_argument_string(buffer))
#
#println("arg 0=", rtosc_argument(buffer, 0))
#println("arg 1=", rtosc_argument(buffer, 1))
#println("arg 2=", rtosc_argument(buffer, 2))

#Fully check basics
function test_it_fat()
    i::Int32          = 42;             #integer
    f::Float32        = 0.25;           #float
    s::String         = "string";       #string
    b                 = s;              #blob
    h::Int64          = -125;           #long integer
    t::UInt64         = 22412;          #timetag
    d::Float64        = 0.125;          #double
    S::String         = "Symbol";       #symbol
    c::Char           = 'J';            #character
    r::Int32          = 0x12345678;     #RGBA
    m::Array{UInt8,1} = [0x12,0x23,     #midi
                         0x34,0x45];
    #true
    #false
    #nil
    #inf

    msg = OscMsg("/dest", "[ifsbhtdScrmTFNI]", i,f,s,b,h,t,d,S,c,r,m);
    show(msg)

    #println(string(map(x->(hex(x,2)), buffer[1:len])...))
    #println(string(map(x->(isprint(Char(x&0x7f)) ? string(Char(x&0x7f)," ") : ". "), buffer[1:len])...))
    #println("argument string is=", rtosc_argument_string(buffer))

    @test msg[1]  == i
    @test msg[2]  == f
    @test msg[3]  == s
    @test OSC.stringify(msg[4]) == b
    @test msg[5]  == h
    @test msg[6]  == t
    @test msg[7]  == d
    @test msg[8]  == S
    @test msg[9]  == c
    @test msg[10]  == r
    @test msg[11] == m
    @test OSC.argType(msg,12) == 'T'
    @test OSC.argType(msg,13) == 'F'
    @test OSC.argType(msg,14) == 'N'
    @test OSC.argType(msg,15) == 'I'
end

function test_it_osc_spec()
    println("Starting OSC Spec...")
    message_one::Array{UInt8} = [
    0x2f, 0x6f, 0x73, 0x63,
    0x69, 0x6c, 0x6c, 0x61,
    0x74, 0x6f, 0x72, 0x2f,
    0x34, 0x2f, 0x66, 0x72,
    0x65, 0x71, 0x75, 0x65,
    0x6e, 0x63, 0x79, 0x00,
    0x2c, 0x66, 0x00, 0x00,
    0x43, 0xdc, 0x00, 0x00,
    ];

    message_two::Array{UInt8} = [
    0x2f, 0x66, 0x6f, 0x6f, #4
    0x00, 0x00, 0x00, 0x00, #8
    0x2c, 0x69, 0x69, 0x73,
    0x66, 0x66, 0x00, 0x00, #16
    0x00, 0x00, 0x03, 0xe8,
    0xff, 0xff, 0xff, 0xff,
    0x68, 0x65, 0x6c, 0x6c,
    0x6f, 0x00, 0x00, 0x00, #32
    0x3f, 0x9d, 0xf3, 0xb6, #36
    0x40, 0xb5, 0xb2, 0x2d, #40
    ];

    osc=OscMsg("/oscillator/4/frequency", "f", Float32(440.0))

    println(string(map(x->(string(x,base=16, pad=2)), osc.data)...))
    println(string(map(x->(string(x,base=16, pad=2)), message_one)...))
    println(string(map(x->(isprint(Char(x&0x7f)) ? string(Char(x&0x7f)," ") : ". "), osc.data)...))
    println(string(map(x->(isprint(Char(x&0x7f)) ? string(Char(x&0x7f)," ") : ". "), message_one)...))
    @test length(osc.data) == length(message_one)
    @test osc.data == message_one
    show(osc)

    osc = OscMsg("/foo", "iisff", Int32(1000), Int32(-1), "hello", Float32(1.234), Float32(5.678))
    println(string(map(x->(string(x,base=16, pad=2)), osc.data)...))
    println(string(map(x->(string(x,base=16, pad=2)), message_two)...))
    println(string(map(x->(isprint(Char(x&0x7f)) ? string(Char(x&0x7f)," ") : ". "), osc.data)...))
    println(string(map(x->(isprint(Char(x&0x7f)) ? string(Char(x&0x7f)," ") : ". "), message_two)...))
    @test length(osc.data) == length(message_two)
    @test osc.data == message_two
    show(osc)
end

function test_path()
    osc = OscMsg("/foo", "f", Float32(1.234))
    @test path(osc) == "/foo"
end

if test_type in ["ALL", "TEST", "INSTALL"]
    test_it_osc_spec()
    test_it_fat()
    test_path()
    println("Done...")
end