diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-01-07 16:37:43 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2017-01-08 22:14:26 +0000 |
commit | a724362d178cf58fbe5d6671493bde1c2784a4ed (patch) | |
tree | 63a813148d835cedd82b963d08a4b818ce9cb72f /tests/lib | |
parent | d45493f37387ea36757a1749acb22626b4843645 (diff) |
test suite: Parse Dgit: field properly (look for initial \w+ only)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'tests/lib')
-rw-r--r-- | tests/lib | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -851,7 +851,11 @@ t-incoming-dsc () { t-ref-dsc-dgit () { t-incoming-dsc local val; val=`t-822-field $incoming_dsc Dgit` - perl -e '$_=shift @ARGV; die "Dgit $_ ?" unless m/^\w+\b/;' "$val" + val=$( perl -e ' + $_=shift @ARGV; + die "Dgit $_ ?" unless m/^\w+\b/; + print $&,"\n" or die $!; + ' "$val") t-ref-same-val $incoming_dsc "$val" } |