Ticket #45010: portmain.tcl.diff

src/port1.0/portmain.tcl

@@ -175 +175 @@
 # end gsoc08-privileges
 
 proc portmain::main {args} {
+    # If "port test", verify port has tests enabled; dependencies will still be installed.
+    global subport test.run
+    if {[lindex [info level 1] 1] eq "test"} {
+        if {![tbool test.run]} {
+            return -code error [format [msgcat::mc "%s has no tests turned on. see 'test.run' in portfile(7)"] $subport]
+        }
+    }
     return 0
 }