test.tcl

#!/usr/bin/tclsh
###############################################################
#
# Test script for eggdrop scripts
#
###############################################################

# CONFIG
set scriptname "giphy.tcl"
set channel "#testchannel"
set nickname "user"
set uhost "uhost"
set handle "handle"

# start script
set scriptVersion 0.1
set binds [dict create]
puts "Eggdrop script tester $scriptVersion"

proc setudef {type value} {
    puts "SETUDEF:  $type $value"
}

# handle eggdrop binds
proc bind {type perms cmd proc} {
    puts "BIND:     $type $perms $cmd $proc"
    global binds
    # create type if not exists
    if {![dict exists $binds $type]} {
        dict set binds $type [dict create]
    }
    # get existing commands of the same type
    set d [dict get $binds $type]
    # add command to dict
    dict set binds $type [dict append d $cmd $proc]
}

# output eggdrop putserv command to stdout
proc putserv {output} {
    puts "PUTSERV:  $output";
}

# output egggdrop putlog command to stdout
proc putlog {output} {
    puts "PUTLOG:   $output";
}

proc matchattr {handle flags {channel ""}} {
    return 0
}

proc channel {func name setting} {
    return 1
}

# emulate pubm binds
proc pubm {{value ""}} {
    puts "PUBM:     $value";
    global binds
    global nickname
    global channel
    global uhost
    global handle
    set pubm [dict get $binds "pubm"]
    dict for {mask proc} $pubm {
        $proc $nickname $uhost $handle $channel $value
    }
#    if {[dict exists $pubm $cmd]} {
#        set p [dict get $pubm $cmd]
#        $p $nickname $uhost $handle $channel $value
#        return
#    }
#    puts "ERROR:    $cmd does not exists in pubm";
}

# emulate public command
proc pub {cmd {value ""}} {
    puts "PUB:      $cmd $value";
    global binds
    global nickname
    global channel
    global uhost
    global handle
    set pub [dict get $binds "pub"]
    if {[dict exists $pub $cmd]} {
        set p [dict get $pub $cmd]
        $p $nickname $uhost $handle $channel $value
        return
    }
    puts "ERROR:    $cmd does not exists in pub";
}

# emulate msg command
proc msg {cmd {value ""}} {
    puts "MSG:      $cmd $value";
    global binds
    global nickname
    global uhost
    global handle
    set msg [dict get $binds "msg"]
    if {[dict exists $msg $cmd]} {
        set p [dict get $msg $cmd]
        $p $nickname $uhost $handle $value
        return
    }
    puts "ERROR:    $cmd does not exists in msg";
}

# emulate dcc command
proc dcc {cmd {value ""}} {
    puts "DCC:      $cmd $value";
    global binds
    global nickname
    global uhost
    global handle
    set dcc [dict get $binds "dcc"]
    if {[dict exists $dcc [string range $cmd 1 999]]} {
        set p [dict get $dcc [string range $cmd 1 999]]
        $p $nickname $uhost $handle $value
        return
    }
    puts "ERROR:    $cmd does not exists in dcc";
}

source $scriptname

# TESTS GO HERE
pub "!giphy"
after 1000
pub "!giphy" "ice hockey fight"
after 1000
pub ".giphy" "arnold schwarzenegger"
after 1000
pub ".giphy" "i'm bored"
after 1000
pub ".giphy" "heavy metal"