#!/usr/bin/expect -f

# Author: Iain Douglas <centos@1n6.org.uk>

#

set testpassword [lindex $argv 0]

set timeout 10

match_max 6000

spawn su passtest -c passwd

expect  -re "(UNIX|Current) password:" { send -- "passtest\r" }

expect {

    "password:" {

         send "$testpassword\r"

         expect {

             "BAD PASSWORD: is a palindrome" { exit 0 }

             "BAD PASSWORD: The password is a palindrome" { exit 0 }

             "BAD PASSWORD: it is WAY too short" { exit 0 }

             "BAD PASSWORD: The password is shorter than 8 characters" { exit 0 }

             "BAD PASSWORD: it is too short" { exit 0 }

             "BAD PASSWORD: it does not contain enough DIFFERENT characters" { exit 0 }

             "BAD PASSWORD: The password fails the dictionary check - it does not contain enough DIFFERENT characters" { exit 0 }

         }

     }

}

exit 1