Tcl Library Source Code

File modules/dns/spf.test artifact 07801f9dc4 part of check-in b4ae6cabba

# spf.test - Copyright (C) 2004 Pat Thoyts <[email protected]>
#
# Tests for the Tcllib SPF package
#
# -------------------------------------------------------------------------
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# -------------------------------------------------------------------------
# RCS: @(#) $Id: spf.test,v 1.1 2004/07/01 12:25:14 patthoyts Exp $

# -------------------------------------------------------------------------
# Initialise the test package
#
if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import ::tcltest::*
}

# -------------------------------------------------------------------------
# Ensure we test _this_ local copy and one installed somewhere else.
#
package forget spf
catch {namespace delete ::spf}
if {[catch {source [file join [file dirname [info script]] spf.tcl]} msg]} {
    puts "skipped [file tail [info script]]: $msg"
    return
}

# -------------------------------------------------------------------------
# Helpers
# -------------------------------------------------------------------------

# These tests do not make any network calls. Instead we emulate the
# DNS query results wiht the following functions.

foreach cmd [list SPF TXT A PTR MX] {
    catch {rename ::spf::$cmd ::spf::tmp_$cmd}
}
proc ::spf::A {name} { return 192.168.0.4 }
proc ::spf::PTR {addr} { return testhost.local.net }
proc ::spf::MX {domain} { return {{10 mx1.local.net} {20 mx2.local.net}} }
proc ::spf::TXT {domain} { return "Only mail from local hosts permitted." }
proc ::spf::SPF {domain} { return "v=spf1 ?all" }

# -------------------------------------------------------------------------
# Tests
# -------------------------------------------------------------------------

test spf-1.1 {a directive: fallthrough} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 a -all"
    } r] $r
} {0 -}

test spf-1.2 {a directive: fallthrough} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 a ?all"
    } r] $r
} {0 ?}

test spf-1.3 {a directive: matching subnet} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 a/24 ?all"
    } r] $r
} {0 +}

test spf-1.3 {a directive: rejected matching subnet} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 -a/24 ?all"
    } r] $r
} {0 ?}

test spf-1.4 {a directive: match host} {
    list [catch {
        spf::Spf 192.168.0.4 local.net "v=spf1 a ?all"
    } r] $r
} {0 +}

test spf-2.1 {mx directive: fail mx} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 mx ?all"
    } r] $r
} {0 ?}

test spf-2.2 {mx directive: match mx subnet} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 mx/24 ?all"
    } r] $r
} {0 +}

test spf-2.3 {mx directive: fail match explict mx} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 mx:mail.local.net ?all"
    } r] $r
} {0 ?}

test spf-2.4 {mx directive: match explict mx} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 mx:mail.local.net/24 ?all"
    } r] $r
} {0 +}

test spf-2.4 {mx directive: match explict mx} {
    list [catch {
        spf::Spf 192.168.0.4 local.net "v=spf1 mx:mail.local.net ?all"
    } r] $r
} {0 +}

test spf-3.1 {ptr directive} {
    list [catch {
        spf::Spf 192.168.0.4 local.net "v=spf1 ptr ?all"
    } r] $r
} {0 +}

test spf-3.2 {ptr directive} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 ptr ?all"
    } r] $r
} {0 ?}

test spf-3.3 {ptr directive} {
    list [catch {
        spf::Spf 192.168.0.4 local.net "v=spf1 ptr:local.net ?all"
    } r] $r
} {0 +}

test spf-3.4 {ptr directive} {
    list [catch {
        spf::Spf 192.168.0.4 local.net "v=spf1 ptr:local.com ?all"
    } r] $r
} {0 ?}

test spf-4.1 {ip4 directive} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 ip4:192.168.0.0/32 ?all"
    } r] $r
} {0 ?}

test spf-4.2 {ip4 directive} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 ip4:192.168.0.0/24 ?all"
    } r] $r
} {0 +}

test spf-4.3 {ip4 directive} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 ip4:192.168.0.0/16 ?all"
    } r] $r
} {0 +}

test spf-4.4 {ip4 directive} {
    list [catch {
        spf::Spf 192.255.0.1 local.net "v=spf1 ip4:192.168.0.0/16 ?all"
    } r] $r
} {0 ?}

test spf-4.5 {ip4 directive} {
    list [catch {
        spf::Spf 192.168.0.1 local.net "v=spf1 ip4:192.168/16 ?all"
    } r] $r
} {0 +}

# -------------------------------------------------------------------------

foreach cmd [list SPF TXT A PTR MX] {
    catch {rename ::spf::$cmd {}}
    catch {rename ::spf::tmp_$cmd ::spf::$cmd}
}

::tcltest::cleanupTests

# Local Variables:
#  mode: tcl
#  indent-tabs-mode: nil
# End: