test.lua

do
    echo("*** timeout test ***")
    do
        local backup = timeout
        timeout = 1
        spawn("cmd.exe","/c","timeout 3 >nul & echo hoge")
        local rc = expect("hoge")
        if rc ~= -2 then
            echo("--> [NG]")
            os.exit(1)
        end
        echo("--> [OK]")
    end

    echo("*** non-timeout test ***")
    do
        timeout = backup
        local rc = expect("hoge")
        if rc ~= 0 then
            echo("--> [NG]")
            os.exit(1)
        end
        echo("--> [OK]")
    end

    function testShot(word)
        local screen = shot(2)
        for i=1,#screen do
            if string.find(screen[i],word,1,true) then
                return true
            end
        end
        return false
    end

    echo("*** shot test ***")
    do
        local screen = shot(2)
        if not testShot("shot") then
            echo("--> [NG]")
            os.exit(1)
        end
        echo("--> [OK]")
    end

    echo("*** sleep test ***")
    do
        spawn("cmd.exe","/c","timeout 1 >nul & echo sleeptest")
        if testShot("sleeptest") then
            echo("--> [NG 1st/2]")
            os.exit(1)
        end
        echo("--> [OK 1st/2]")
        sleep(1)
        if not testShot("sleeptest") then
            echo("--> [NG 2nd/2]")
            os.exit(1)
        end
        echo("--> [OK 2nd/2]")
    end

    echo("*** usleep test ***")
    do
        spawn("cmd.exe","/c","timeout 1 >nul & echo usleeptest")
        if testShot("usleeptest") then
            echo("--> [NG 1st/2]")
            os.exit(1)
        end
        echo("--> [OK 1st/2]")
        usleep(1001000)
        if not testShot("usleeptest") then
            echo("--> [NG 2nd/2]")
            os.exit(1)
        end
        echo("--> [OK 2nd/2]")
    end

    echo("*** OLE test ***")
    do
        local fsObj = create_object("Scripting.FileSystemObject")
        local folder= fsObj:GetFolder("C:\\")
        local files = folder:_get("Files")
        if files:_get("Count") > 0 then
            echo("--> [OK]")
        else
            echo("--> [NG]")
            os.exit(1)
        end
    end

    echo("*** 'sendln(\"exit\")' to cmd.exe ***")
    do
        timeout = backup
        local pid = spawn("cmd.exe")
        if not pid then
            os.exit(1)
        end
        sendln("exit")
        wait(pid)
        echo("--> [OK]")
    end

    echo("*** 'send \"exot←←i<CR>\"' to cmd.exe ***")
    do
        timeout = backup
        local pid = spawn("cmd.exe")
        if not pid then
            os.exit(1)
        end
        send("exot")
        sleep(1)
        sendvkey(0x25) -- VK_LEFT
        sendvkey(0x25) -- VK_LEFT
        sendln("i")
        wait(pid)
        echo("--> [OK]")
    end

    echo "*** '\"rem exit\" and sendvkey(HOME,DEL,DEL,DEL,DEL) ****"
    local pid = spawn("cmd.exe")
    if not pid then
        os.exit(1)
    end
    send("rem exit")
    sleep(1)
    sendvkey(0x24) -- HOME
    sendvkey(0x2E) -- DELETE
    sendvkey(0x2E) -- DELETE
    sendvkey(0x2E) -- DELETE
    sendvkey(0x2E) -- DELETE
    sendln("")
    wait(pid)
    echo("--> [OK]")
end