stest: Check that received packet is as expected

[secnet.git] / stest / common.tcl

diff --git a/stest/common.tcl b/stest/common.tcl
index 566757c75d4cd87b077fe76b8a4879b96545cf11..7891e1d4a4901ce696242b550c92a2767b1a0eb9 100644 (file)
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -180,8 +180,15 @@ proc netlink-got-packet {location site data} {
     if {![hbytes length $data]} return 
     switch -exact $site {
        inside {
-           puts OK
-           finish 0
+           switch -glob $data {
+               45000054ed9d4000fe0166d9ac12e802ac12e80900* {
+                   puts "OK $data"
+                   finish 0
+               }
+               * {
+                   error "unexpected $site $data"
+               }
+           }
        }
        outside {
            error "inside rx'd!"