#
# The contents of this file are subject to the AOLserver Public License
# Version 1.1 (the "License"); you may not use this file except in
# compliance with the License. You may obtain a copy of the License at
# http://aolserver.com/.
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is AOLserver Code and related documentation
# distributed by AOL.
#
# The Initial Developer of the Original Code is America Online,
# Inc. Portions created by AOL are Copyright (C) 1999 America Online,
# Inc. All Rights Reserved.
#
# Alternatively, the contents of this file may be used under the terms
# of the GNU General Public License (the "GPL"), in which case the
# provisions of GPL are applicable instead of those above.  If you wish
# to allow use of your version of this file only under the terms of the
# GPL and not to allow others to use your version of this file under the
# License, indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by the GPL.
# If you do not delete the provisions above, a recipient may use your
# version of this file under either the License or the GPL.
#

#
# $Header$
#

#
# xmlrpc.test --
#
#       Test cases for ns_xmlrpc.
#

package require tcltest 2.0
namespace import -force ::tcltest::*

source xmlrpc.tcl

proc ns_log args {}

# ============================================================

set N 0

test ns_xmlrpc-wait-1.[incr N] {parse simple methodResponse w/o type} -setup {
    proc ns_http {verb id &var args} {
        upvar ${&var} var
        set var {<?xml version="1.0"?>
<methodResponse>
  <params>
    <param>
      <value>hello world</value>
    </param>
  </params>
</methodResponse>}
        return 1
    }
} -body {
    ns_xmlrpc wait dummy
} -cleanup {
    rename ns_http {}
} -result {{hello world}}

test ns_xmlrpc-wait-1.[incr N] {parse simple methodResponse w/ type} -setup {
    proc ns_http {verb id &var args} {
        upvar ${&var} var
        set var {<?xml version="1.0"?>
<methodResponse>
  <params>
    <param>
      <value><string>hello world</string></value>
    </param>
    <param>
      <value><i4>42</i4></value>
    </param>
  </params>
</methodResponse>}
        return 1
    }
} -body {
    ns_xmlrpc wait dummy
} -cleanup {
    rename ns_http {}
} -result {{hello world} 42}

test ns_xmlrpc-wait-1.[incr N] {parse array methodResponse} -setup {
    proc ns_http {verb id &var args} {
        upvar ${&var} var
        set var {<?xml version="1.0"?>
<methodResponse>
  <params>
    <param>
      <value>
        <array>
          <data>
            <value><double>4.12</double></value>
            <value><double>13.68</double></value>
            <value><double>1.93</double></value>
            <value><double>0.78</double></value>
          </data>
        </array>
      </value>
    </param>
  </params>
</methodResponse>}
        return 1
    }
} -body {
    ns_xmlrpc wait dummy
} -cleanup {
    rename ns_http {}
} -result {{4.12 13.68 1.93 0.78}}

test ns_xmlrpc-wait-1.[incr N] {parse struct methodResponse} -setup {
    proc ns_http {verb id &var args} {
        upvar ${&var} var
        set var {<?xml version="1.0"?>
<methodResponse>
  <params>
    <param>
      <value>
        <struct>
          <member>
            <name>symbol</name>
            <value><string>RHAT</string></value>
          </member>
          <member>
            <name>limit</name>
            <value><double>2.25</double></value>
          </member>
        </struct>
      </value>
    </param>
  </params>
</methodResponse>}
        return 1
    }
} -body {
    ns_xmlrpc wait dummy
} -cleanup {
    rename ns_http {}
} -result {{{symbol RHAT} {limit 2.25}}}

test ns_xmlrpc-wait-2.[incr N] {simulate timeout condition} -setup {
    proc ns_http {verb id &var args} {
        upvar ${&var} var
        set var timeout
        return 0
    }
} -body {
    ns_xmlrpc wait dummy
} -cleanup {
    rename ns_http {}
} -result {}

# ============================================================

set N 0

test ns_xmlrpc-queue-1.[incr N] {simple call w/ no args} -setup {
    proc ns_set {args} {}
    proc ns_http {verb url method body hdrs args} {
        set ::request $body
    }
    set ::request {}
} -body {
    ns_xmlrpc queue http://rpc.domain.com/rpc methodName
    set ::request
} -cleanup {
    rename ns_set {}
    rename ns_http {}
    unset ::request
} -result {<?xml version="1.0"?>
<methodCall><methodName>methodName</methodName><params></params></methodCall>
}

test ns_xmlrpc-queue-1.[incr N] {simple call w/ args} -setup {
    proc ns_set {args} {}
    proc ns_http {verb url method body hdrs args} {
        set ::request $body
    }
    set ::request {}
} -body {
    ns_xmlrpc queue http://rpc.domain.com/rpc methodName arg1 arg2 arg3
    set ::request
} -cleanup {
    rename ns_set {}
    rename ns_http {}
    unset ::request
} -result {<?xml version="1.0"?>
<methodCall><methodName>methodName</methodName><params><param><value>arg1</value></param><param><value>arg2</value></param><param><value>arg3</value></param></params></methodCall>
}

# ============================================================

set N 0

test ns_xmlrpc-fault-1.[incr N] {fault response formatter} -body {
    ns_xmlrpc fault 123 "fault string"
} -result {<?xml version="1.0"?>
<methodResponse><fault><value><struct><member><name>faultCode</name><value><int>123</int></value></member><member><name>faultString</name><value><string>fault string</string></value></member></struct></value></fault></methodResponse>
}

test ns_xmlrpc-fault-1.[incr N] {test -indent 4} -body {
    ns_xmlrpc fault -indent 4 123 "fault string"
} -result {<?xml version="1.0"?>
<methodResponse>
    <fault>
        <value>
            <struct>
                <member>
                    <name>faultCode</name>
                    <value>
                        <int>123</int>
                    </value>
                </member>
                <member>
                    <name>faultString</name>
                    <value>
                        <string>fault string</string>
                    </value>
                </member>
            </struct>
        </value>
    </fault>
</methodResponse>
}

# ============================================================

set N 0

test ns_xmlrpc-format-1.[incr N] {single param} -body {
    ns_xmlrpc format {string {hello world}}
} -result {<?xml version="1.0"?>
<methodResponse><params><param><value><string>hello world</string></value></param></params></methodResponse>
}

test ns_xmlrpc-format-1.[incr N] {multiple params} -body {
    ns_xmlrpc format {string {hello world}} {i4 42}
} -result {<?xml version="1.0"?>
<methodResponse><params><param><value><string>hello world</string></value></param><param><value><i4>42</i4></value></param></params></methodResponse>
}

test ns_xmlrpc-format-1.[incr N] {response w/ array} -body {
    ns_xmlrpc format {array {{string {hello world}} {i4 42}}}
} -result {<?xml version="1.0"?>
<methodResponse><params><param><value><array><data><value><string>hello world</string></value><value><i4>42</i4></value></data></array></value></param></params></methodResponse>
}

test ns_xmlrpc-format-1.[incr N] {response w/ struct} -body {
    ns_xmlrpc format {struct {foo {string {hello world}} bar {i4 42}}}
} -result {<?xml version="1.0"?>
<methodResponse><params><param><value><struct><member><name>foo</name><value><string>hello world</string></value></member><member><name>bar</name><value><i4>42</i4></value></member></struct></value></param></params></methodResponse>
}

test ns_xmlrpc-format-1.[incr N] {complex response} -body {
    ns_xmlrpc format -indent 4 \
        {string {simple scalar}} \
        {array {{struct {foo {string {hello world}} bar {i4 42}}} {string {second element}}}} \
        {struct {thing {array {{double 3.14} {boolean 0}}}}}
} -result {<?xml version="1.0"?>
<methodResponse>
    <params>
        <param>
            <value>
                <string>simple scalar</string>
            </value>
        </param>
        <param>
            <value>
                <array>
                    <data>
                        <value>
                            <struct>
                                <member>
                                    <name>foo</name>
                                    <value>
                                        <string>hello world</string>
                                    </value>
                                </member>
                                <member>
                                    <name>bar</name>
                                    <value>
                                        <i4>42</i4>
                                    </value>
                                </member>
                            </struct>
                        </value>
                        <value>
                            <string>second element</string>
                        </value>
                    </data>
                </array>
            </value>
        </param>
        <param>
            <value>
                <struct>
                    <member>
                        <name>thing</name>
                        <value>
                            <array>
                                <data>
                                    <value>
                                        <double>3.14</double>
                                    </value>
                                    <value>
                                        <boolean>0</boolean>
                                    </value>
                                </data>
                            </array>
                        </value>
                    </member>
                </struct>
            </value>
        </param>
    </params>
</methodResponse>
}

## w.bloggar doesn't expect datatypes for Blogger API responses for
## simple types, but array and struct are special.

test ns_xmlrpc-format-1.[incr N] {no datatypes} -body {
    ns_xmlrpc format -types no {string {hello world}}
} -result {<?xml version="1.0"?>
<methodResponse><params><param><value>hello world</value></param></params></methodResponse>
}

test ns_xmlrpc-format-1.[incr N] {no datatypes, response w/ array} -body {
    ns_xmlrpc format -types no {array {{string {hello world}} {i4 42}}}
} -result {<?xml version="1.0"?>
<methodResponse><params><param><value><array><data><value>hello world</value><value>42</value></data></array></value></param></params></methodResponse>
}

test ns_xmlrpc-format-1.[incr N] {no datatypes, response w/ struct} -body {
    ns_xmlrpc format -types no {struct {foo {string {hello world}} bar {i4 42}}}
} -result {<?xml version="1.0"?>
<methodResponse><params><param><value><struct><member><name>foo</name><value>hello world</value></member><member><name>bar</name><value>42</value></member></struct></value></param></params></methodResponse>
}

# ============================================================

set N 0

test ns_xmlrpc-listen-1.[incr N] {parse incoming methodCall, no args} -body {
    ns_xmlrpc listen {<?xml version="1.0"?>
<methodCall><methodName>test.methodName</methodName></methodCall>}
} -result {test.methodName}

test ns_xmlrpc-listen-1.[incr N] {methodCall w/simple args} -body {
    ns_xmlrpc listen {<?xml version="1.0"?>
<methodCall><methodName>test.methodName</methodName><params><param><value><string>first</string></value></param><param><value><string>second arg</string></value></param></params></methodCall>}
} -result {test.methodName first {second arg}}

test ns_xmlrpc-listen-1.[incr N] {methodCall w/complex args} -body {
    ns_xmlrpc listen {<?xml version="1.0"?>
<methodCall>
    <methodName>test.methodName</methodName>
    <params>
        <param>
            <value>
                <string>simple scalar</string>
            </value>
        </param>
        <param>
            <value>
                <array>
                    <data>
                        <value>
                            <struct>
                                <member>
                                    <name>foo</name>
                                    <value>
                                        <string>hello world</string>
                                    </value>
                                </member>
                                <member>
                                    <name>bar</name>
                                    <value>
                                        <i4>42</i4>
                                    </value>
                                </member>
                            </struct>
                        </value>
                        <value>
                            <string>second element</string>
                        </value>
                    </data>
                </array>
            </value>
        </param>
        <param>
            <value>
                <struct>
                    <member>
                        <name>thing</name>
                        <value>
                            <array>
                                <data>
                                    <value>
                                        <double>3.14</double>
                                    </value>
                                    <value>
                                        <boolean>0</boolean>
                                    </value>
                                </data>
                            </array>
                        </value>
                    </member>
                </struct>
            </value>
        </param>
    </params>
</methodCall>}
} -result {test.methodName {simple scalar} {{{foo {hello world}} {bar 42}} {second element}} {{thing {3.14 0}}}}

# ============================================================

cleanupTests

#
# Example usage:
#
# ns_xmlrpc call http://ping.blo.gs/ weblogUpdates.ping {Dossy's Blog} http://dossy.org/index.rdf
#