�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2F'>mariadb-11.7.2</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fbuild%2F'>build</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fbuild%2Fdbug%2F'>dbug</a>/</p><hr><h3>✏️ Editing: dbug-t</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/env perl

#
#  A driver program to test DBUG features - runs tests (shell commands)
#  from the end of file to invoke tests.c, which does the real dbug work.
#

use Test::More;

$exe=$0;
$exe =~ s@[^/]+$@tests@;

die unless -x $exe;

# load tests
@tests=();
while (&lt;DATA&gt;) {
  if (/^% \.\/tests /) {
    push @tests, [ $&#039; ]
  } elsif (/^#/) {
    next;
  } else {
    push @{$tests[$#tests]}, $_
  }
}

plan skip_all =&gt; &quot;because dbug is disabled&quot; if system $exe;

plan tests =&gt; scalar(@tests);

for (@tests) {
  $t=$exe . &#039; &#039; . shift @$_;
  chomp($t);
  open F, &#039;-|&#039;,  $t or die &quot;open($t|): $!&quot;;
  local $&quot;;
  $out=join($&quot;, &lt;F&gt;); close(F);
  # special cases are handled here:
  $out =~ s/Memory: 0x[0-9A-Fa-f]+/Memory: 0x####/g if $t =~ /dump/;
  # compare (&quot;\n&quot; at the beginning makes better output in case of errors)
  is(&quot;\n$out&quot;,&quot;\n@$_&quot;, $t);
}

__DATA__
% ./tests -#d
func2: info: s=ok
=&gt; execute
=&gt; evaluate_if: OFF
main: explain: dbug explained: d
func2: info: s=ok
% ./tests d,ret3
=&gt; evaluate_if: OFF
#
## Testing negative lists
#
% ./tests d:-d,ret3
func2: info: s=ko
=&gt; execute
=&gt; evaluate_if: OFF
main: explain: dbug explained: d:-d,ret3
func2: info: s=ko
% ./tests t:-d,ret3
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | &lt;func2
| &lt;func1
=&gt; evaluate_if: OFF
| &gt;func2
| | &gt;func3
| | &lt;func3
| &lt;func2
&lt;main
% ./tests t:d,info:-d,ret3
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | | info: s=ko
| | &lt;func2
| &lt;func1
=&gt; evaluate_if: OFF
| &gt;func2
| | &gt;func3
| | &lt;func3
| | info: s=ko
| &lt;func2
&lt;main
% ./tests t:d,info:-d,ret3:-f,func2
&gt;main
| &gt;func1
| | | &gt;func3
| | | &lt;func3
| &lt;func1
=&gt; evaluate_if: OFF
| | &gt;func3
| | &lt;func3
&lt;main
% ./tests t:d,info:-d,ret3:-f,func2 d,evaluate
=&gt; evaluate_if: OFF
% ./tests t:d,info:-d,ret3:-f,func2 d,evaluate_if
=&gt; evaluate_if: ON
% ./tests t:d:-d,ret3:-f,func2 d,evaluate_if
=&gt; evaluate_if: ON
% ./tests t:d:-d,ret3:-f,func2
&gt;main
| &gt;func1
| | | &gt;func3
| | | &lt;func3
| &lt;func1
=&gt; execute
=&gt; evaluate_if: OFF
| explain: dbug explained: d:-d,ret3:f:-f,func2:t
| | &gt;func3
| | &lt;func3
&lt;main
#
## Adding incremental settings to the brew
#
% ./tests t:d:-d,ret3:-f,func2 +d,evaluate_if
&gt;main
| &gt;func1
| | | &gt;func3
| | | &lt;func3
| &lt;func1
=&gt; evaluate_if: ON
| | &gt;func3
| | &lt;func3
&lt;main
#
## DBUG_DUMP
#
% ./tests t:d:-d,ret3:f:-f,func2 +d,dump
&gt;main
| &gt;func1
| | | &gt;func3
| | | &lt;func3
| &lt;func1
| dump: Memory: 0x####  Bytes: (27)
64 2C 64 75 6D 70 3A 2D 64 2C 72 65 74 33 3A 66 3A 2D 66 2C 66 75 6E 63 32 3A 
74 
=&gt; evaluate_if: OFF
| | &gt;func3
| | &lt;func3
&lt;main
% ./tests t:d:-d,ret3:f:-f,func2 +d,dump
&gt;main
| &gt;func1
| | | &gt;func3
| | | &lt;func3
| &lt;func1
| dump: Memory: 0x####  Bytes: (27)
64 2C 64 75 6D 70 3A 2D 64 2C 72 65 74 33 3A 66 3A 2D 66 2C 66 75 6E 63 32 3A 
74 
=&gt; evaluate_if: OFF
| | &gt;func3
| | &lt;func3
&lt;main
% ./tests t:d:-d,ret3:f:-f,func2:+d,dump
&gt;main
| &gt;func1
| | | &gt;func3
| | | &lt;func3
| &lt;func1
| dump: Memory: 0x####  Bytes: (27)
64 2C 64 75 6D 70 3A 2D 64 2C 72 65 74 33 3A 66 3A 2D 66 2C 66 75 6E 63 32 3A 
74 
=&gt; evaluate_if: OFF
| | &gt;func3
| | &lt;func3
&lt;main
% ./tests t:d:-d,ret3:f:-f,func2 +d,dump,explain
&gt;main
| &gt;func1
| | | &gt;func3
| | | &lt;func3
| &lt;func1
| dump: Memory: 0x####  Bytes: (35)
64 2C 64 75 6D 70 2C 65 78 70 6C 61 69 6E 3A 2D 64 2C 72 65 74 33 3A 66 3A 2D 
66 2C 66 75 6E 63 32 3A 74 
=&gt; evaluate_if: OFF
| explain: dbug explained: d,dump,explain:-d,ret3:f:-f,func2:t
| | &gt;func3
| | &lt;func3
&lt;main
% ./tests t:d:-d,ret3:f:-f,func2 +d,dump,explain:P
dbug-tests: &gt;main
dbug-tests: | &gt;func1
dbug-tests: | | | &gt;func3
dbug-tests: | | | &lt;func3
dbug-tests: | &lt;func1
dbug-tests: | dump: Memory: 0x####  Bytes: (37)
64 2C 64 75 6D 70 2C 65 78 70 6C 61 69 6E 3A 2D 64 2C 72 65 74 33 3A 66 3A 2D 
66 2C 66 75 6E 63 32 3A 50 3A 74 
=&gt; evaluate_if: OFF
dbug-tests: | explain: dbug explained: d,dump,explain:-d,ret3:f:-f,func2:P:t
dbug-tests: | | &gt;func3
dbug-tests: | | &lt;func3
dbug-tests: &lt;main
% ./tests t:d:-d,ret3:f:-f,func2 +d,dump,explain:P:F
dbug-tests:        tests.c: &gt;main
dbug-tests:        tests.c: | &gt;func1
dbug-tests:        tests.c: | | | &gt;func3
dbug-tests:        tests.c: | | | &lt;func3
dbug-tests:        tests.c: | &lt;func1
dbug-tests:        tests.c: | dump: Memory: 0x####  Bytes: (39)
64 2C 64 75 6D 70 2C 65 78 70 6C 61 69 6E 3A 2D 64 2C 72 65 74 33 3A 66 3A 2D 
66 2C 66 75 6E 63 32 3A 46 3A 50 3A 74 
=&gt; evaluate_if: OFF
dbug-tests:        tests.c: | explain: dbug explained: d,dump,explain:-d,ret3:f:-f,func2:F:P:t
dbug-tests:        tests.c: | | &gt;func3
dbug-tests:        tests.c: | | &lt;func3
dbug-tests:        tests.c: &lt;main
#
## DBUG_EXPLAIN, DBUG_PUSH, DBUG_POP, DBUG_SET
#
% ./tests t:d:-d,ret3:f:-f,func2
&gt;main
| &gt;func1
| | | &gt;func3
| | | &lt;func3
| &lt;func1
=&gt; execute
=&gt; evaluate_if: OFF
| explain: dbug explained: d:-d,ret3:f:-f,func2:t
| | &gt;func3
| | &lt;func3
&lt;main
% ./tests t:d:-d,ret3
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | | info: s=ko
| | &lt;func2
| &lt;func1
=&gt; execute
=&gt; evaluate_if: OFF
| explain: dbug explained: d:-d,ret3:t
| &gt;func2
| | &gt;func3
| | &lt;func3
| | info: s=ko
| &lt;func2
&lt;main
% ./tests d,info:-d,ret3:d,push
func2: info: s=ko
=&gt; evaluate_if: OFF
| &gt;func2
| | &gt;func3
| | &lt;func3
| | info: s=ko
| &lt;func2
&lt;main
% ./tests d,info:-d,ret3:d,push,explain
func2: info: s=ko
=&gt; evaluate_if: OFF
| explain: dbug explained: d,info,push,explain:-d,ret3:t
| &gt;func2
| | &gt;func3
| | &lt;func3
| | info: s=ko
| &lt;func2
&lt;main
% ./tests d,info:-d,ret3:d,explain
func2: info: s=ko
=&gt; evaluate_if: OFF
main: explain: dbug explained: d,info,explain:-d,ret3
func2: info: s=ko
% ./tests d,info:-d,ret3:d,explain,pop
func2: info: s=ko
=&gt; evaluate_if: OFF
% ./tests d,info:-d,ret3:d,explain t:d,pop
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | &lt;func2
| &lt;func1
=&gt; evaluate_if: OFF
main: explain: dbug explained: d,info,explain:-d,ret3
func2: info: s=ko
% ./tests d,info:-d,ret3:d,explain,pop +t
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | | info: s=ko
| | &lt;func2
| &lt;func1
=&gt; evaluate_if: OFF
main: explain: dbug explained: d,info,explain,pop:-d,ret3
func2: info: s=ko
% ./tests d,info:-d,ret3:d,explain,set
func2: info: s=ko
=&gt; evaluate_if: OFF
       tests.c: main: explain: dbug explained: d,info,explain,set:-d,ret3:F
       tests.c: func2: info: s=ko
% ./tests d,info:-d,ret3:d,explain,set:t
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | | info: s=ko
| | &lt;func2
| &lt;func1
=&gt; evaluate_if: OFF
       tests.c: | explain: dbug explained: d,info,explain,set:-d,ret3:F:t
       tests.c: | &gt;func2
       tests.c: | | &gt;func3
       tests.c: | | &lt;func3
       tests.c: | | info: s=ko
       tests.c: | &lt;func2
       tests.c: &lt;main
% ./tests t d,info:-d,ret3:d,explain,set:t
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | | info: s=ko
| | &lt;func2
| &lt;func1
=&gt; evaluate_if: OFF
       tests.c: | explain: dbug explained: d,info,explain,set:-d,ret3:F:t
       tests.c: | &gt;func2
       tests.c: | | &gt;func3
       tests.c: | | &lt;func3
       tests.c: | | info: s=ko
       tests.c: | &lt;func2
       tests.c: &lt;main
% ./tests t d,info:-d,ret3:d,explain,set,pop
func2: info: s=ko
=&gt; evaluate_if: OFF
| &gt;func2
| | &gt;func3
| | &lt;func3
| &lt;func2
&lt;main
% ./tests t:f,func2
| | &gt;func2
| | &lt;func2
=&gt; evaluate_if: OFF
| &gt;func2
| &lt;func2
#
## Testing SUBDIR rules
#
% ./tests t:-f,func2/:d
&gt;main
| &gt;func1
| &lt;func1
=&gt; execute
=&gt; evaluate_if: OFF
| explain: dbug explained: d:f:-f,func2/:t
&lt;main
% ./tests t:f,func1/:d
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | | info: s=ok
| | &lt;func2
| &lt;func1
=&gt; evaluate_if: OFF
% ./tests t:f,main/:d,pop
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | &lt;func2
| &lt;func1
=&gt; evaluate_if: OFF
% ./tests f,main/:d,push
=&gt; evaluate_if: OFF
| &gt;func2
| | &gt;func3
| | &lt;func3
| &lt;func2
&lt;main
#
## Testing FixTraceFlags() - when we need to traverse the call stack
# (these tests fail with FixTraceFlags() disabled)
#
# delete the INCLUDE rule up the stack
% ./tests t:f,func1/ --push1=t:f,func3/
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | &lt;func2
=&gt; push1
=&gt; evaluate_if: OFF
| | &gt;func3
| | &lt;func3
# delete the EXCLUDE rule up the stack
% ./tests t:-f,func1/ --push1=t
&gt;main
=&gt; push1
| &lt;func1
=&gt; evaluate_if: OFF
| &gt;func2
| | &gt;func3
| | &lt;func3
| &lt;func2
&lt;main
# add the INCLUDE rule up the stack
% ./tests t:f,func3 --push1=t:f,main/
| | | &gt;func3
| | | &lt;func3
=&gt; push1
| &lt;func1
=&gt; evaluate_if: OFF
| &gt;func2
| | &gt;func3
| | &lt;func3
| &lt;func2
&lt;main
# add the EXCLUDE rule up the stack
% ./tests t --push1=t:-f,main/
&gt;main
| &gt;func1
| | &gt;func2
| | | &gt;func3
| | | &lt;func3
| | &lt;func2
=&gt; push1
=&gt; evaluate_if: OFF
# change the defaults
% ./tests t:f,func3 --push1=t
| | | &gt;func3
| | | &lt;func3
=&gt; push1
| &lt;func1
=&gt; evaluate_if: OFF
| &gt;func2
| | &gt;func3
| | &lt;func3
| &lt;func2
&lt;main
# repeated keyword
% ./tests d:-d,info,info
=&gt; execute
=&gt; evaluate_if: OFF
main: explain: dbug explained: d:-d,info
% ./tests d:-d,info/,info
=&gt; execute
=&gt; evaluate_if: OFF
main: explain: dbug explained: d:-d,info/
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fbuild%2Fdbug'>🔙 Back</a></p>