spl/test.spl

"#stream.spl" import
"#http.spl" import
"#messaging.spl" import

"SPL tester" =program-name

func main { int | with args ;
    def thing

    1 anew =thing

    "hi" 0 thing:unwrap:set;

    def thing2 thing:unwrap List:new:from =thing2

    "world" thing2:unwrap:push
    "hello" 0 thing2:unwrap:insert

    "printing first two words of 'hello hi world' (should be 'hello hi')" println
    " " print
    0 thing2:unwrap:get print " " print
    1 thing2:unwrap:get println
    "removing hello" println
    thing2:pop-front;
    "printing first two words again" println
    " " print
    0 thing2:unwrap:get print " " print
    1 thing2:unwrap:get println

    "" println
    "testing closures and func-ptrs" println

    def thingy 
    "heya1" =thingy
    "thingy println" dyn-read call

    "heya2" =thingy
    { | 
        thingy println 
    } call

    def ptr 
    &println =ptr
    "ptr works" ptr call
    &&println =ptr
    "ptr-ptr works" ptr call call
    thingy:&unwrap =ptr
    "unwrap-ptr works" ptr call println
    thingy:&&unwrap =ptr
    "unwrap-ptr-ptr works" ptr call call println


    "" println
    "testing if" println

    def a "test" =a
    def b "test" =b
    a b eq dup if {
        a " is equal to " b concat concat println
    } not if {
        a " is not equal to " b concat concat panic
    }

    a b assert-eq;

    "" println 
    "testing ranges & iterators: (0..30@5) + 1" println

    def range 5 (0 30 Range:new):set-step =range

    range:iter 
        { | 1 + } swap:map 
        { | _str println } swap:foreach

    "" println
    "testing Iter:sum of 5 10s" println

    0 5 Range:new:iter
        { | pop 10 } swap:map
        :sum 
        _str println

    "" println
    "testing MicroMap" println
    
    def map MicroMap:new =map
    "hey" "hello" map:set;
    "helloworld" "Hello, World" map:set;
    "{ " print
    { | with item ;
        "'" print
        0 item:get print
        "': '" print 
        1 item:get print
        "', " print
    } map:foreach
    "}" println

    "" println
    "Running with args: " print
    argv:iter
        { str | " " concat } swap:map
        &print swap:foreach

    "" println
    "testing stream" println

    def file "test.txt" 1 StreamTypes:file:create =file 
    "hi\n" :to-bytes file:write-exact; 
    file:close null =file
    
    "" println
    "testing split" println
    { | println } (" " "hello how  are you" :split):foreach
    "" println

    catch {
        use net:http:Request
        "testing http" println
        def req "data.tudbut.de" 80 "GET" "/spltest" Request:new =req
        req:send:body _str println
    } { with e ;
        e:message println
        "it seems the internet is not available" println
    }
    "" println

    "testing cache" println
    2 cached-test _str println
    3 cached-test _str println
    2 cached-test _str println
    3 cached-test _str println
    "" println

    catch {
        "heya" throw
    } { with e ;
        e:message println
    }
    "" println

    "testing messages" println
    def bus messaging:Bus:new =bus
    bus:subscribe<"testmsg1" { | with message ; message:name print " called1 1" println }>
    bus:subscribe<"testmsg1" { | with message ; message:name print " called1 2" println }>
    bus:subscribe<"testmsg2" { | with message ; message:name print " called2 1" println }>
    bus:subscribe<"testmsg2" { | with message ; message:name print " called2 2" println }>
    "testmsg1" bus:publish
    "testmsg2" bus:publish
    "testmsg1" bus:publish
    "testmsg3" bus:publish
    
    100
}

func cached-test { mega | 1 "cached-test" cache<{ mega | with i ;
    i 2 *
    "calculated " i _str concat println
}>}