# Commands covered: Rappture::Library::xml
#
# This file contains a collection of tests for one of the Rappture Tcl
# commands.  Sourcing this file into Tcl runs the tests and
# generates output for errors.  No output means no errors were found.
#
# ======================================================================
# AUTHOR:  Derrick Kearney, Purdue University
# Copyright (c) 2004-2012  HUBzero Foundation, LLC
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.


if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    package require Rappture
    namespace import -force ::tcltest::*
}

catch {unset lib}

#----------------------------------------------------------
#----------------------------------------------------------
# xml command
# xml
#----------------------------------------------------------
test xml-1.1 {xml command, 0 args} {
    catch {unset lib}
    set lib [Rappture::library rplib_test.xml]
    set xmltext [$lib xml]
} {<run>
    <tool>
        <title>Graphing Calculator</title>
        <about>Press Simulate to view results.</about>
        <command>@tool/graph @driver</command>
    </tool>
    <input>
        <string id="formula">
            <about>
                <label>Formula</label>
                <hints>Example: 2*x + 1</hints>
            </about>
            <size>30x5</size>
            <default>dsd234ssdf3sdf</default>
        </string>
        <string id="name">
            <about>
                <label>Name</label>
                <hints>some text</hints>
            </about>
            <size>5x5</size>
            <default>tluafed</default>
            <current>tnerruc</current>
        </string>
        <number id="min">
            <about>
                <label>From x</label>
            </about>
            <default>0</default>
            <current>1</current>
        </number>
        <number id="max">
            <about>
                <label>To x</label>
            </about>
            <default>2</default>
            <current>3</current>
        </number>
    </input>
    <output>
        <curve id="result">
            <about>
                <label>Formula: Y vs X</label>
            </about>
        </curve>
    </output>
</run>
}
test xml-2.1 {xml command, 1 argument} {
    catch {unset lib}
    set lib [Rappture::library rplib_test.xml]
    list [catch {$lib xml "1moreArg"} msg] $msg
} {1 {wrong # args: should be "libraryObj1 xml"}}


::tcltest::cleanupTests
return