#!/bin/sh

# Demonstrate how -F RE behavior changed after diff-2.9.

. "${srcdir=.}/init.sh"; path_prepend_ ../src

cat <<EOF > in || fail_ "failed to create temporary file"

procedure AdaCode is

    procedure Local_Level_1 is

        procedure Local_Level_2 is

            procedure Local_Level_3 is

                procedure Local_Level_4 is

                    procedure Local_Level_5 is

                    begin

                        null;

                        null;

                        null;

                        foo;

                    end;

                begin

                    Local_Level_5;

                end;

            begin

                Local_Level_4;

            end;

        begin

            Local_Level_3;

        end;

    begin

        Local_Level_2;

    end;

begin

    Local_Level_1;

end;

EOF

sed s/foo/null/ < in > in2 || fail_ "failed to create temporary file"

# Before diff-2.10, the function line would be truncated like this:

# @@ -8,7 +8,7 @@                     procedure Local_Leve

cat <<EOF > exp || fail_ "failed to create temporary file"

@@ -8,7 +8,7 @@ procedure Local_Level_5 is

                         null;

                         null;

                         null;

-                        foo;

+                        null;

                     end;

                 begin

                     Local_Level_5;

EOF

fail=0

returns_ 1 diff -u -F '^[[:space:]]*\(function\|procedure\)' in in2 \

  > out 2> err || fail=1

sed -n '3,$p' out > k && mv k out || fail=1

compare exp out || fail=1

# expect empty stderr

compare /dev/null err || fail=1

Exit $fail