diff options
Diffstat (limited to 'yarns/implementations.yarn')
| -rw-r--r-- | yarns/implementations.yarn | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/yarns/implementations.yarn b/yarns/implementations.yarn index 2a46dfa2..ccebabca 100644 --- a/yarns/implementations.yarn +++ b/yarns/implementations.yarn @@ -409,14 +409,20 @@ Report system branch root repository. Editing morphologies with `morph edit`. - IMPLEMENTS THEN in branch (\S+), (system|stratum) (\S+) refs (\S+) in (\S+) - if [ $MATCH_2 == system ]; then set strata; else set chunks; fi + IMPLEMENTS THEN in branch (\S+), stratum (\S+) refs (\S+) in (\S+) "$SRCDIR/scripts/yaml-extract" \ - "$DATADIR/workspace/$MATCH_1/test:morphs/$MATCH_3.morph" \ - $@ name="$MATCH_4" ref > "$DATADIR/ref.actual" - echo "$MATCH_5" > "$DATADIR/ref.wanted" + "$DATADIR/workspace/$MATCH_1/test:morphs/$MATCH_2.morph" \ + chunks name="$MATCH_3" ref > "$DATADIR/ref.actual" + echo "$MATCH_4" > "$DATADIR/ref.wanted" diff -u "$DATADIR/ref.wanted" "$DATADIR/ref.actual" + IMPLEMENTS THEN in branch (\S+), (system|stratum) (\S+) refers to (\S+) without (\S+) + if [ $MATCH_2 == system ]; then field=strata; else field=build-depends; fi + { ! "$SRCDIR/scripts/yaml-extract" \ + "$DATADIR/workspace/$MATCH_1/test:morphs/$MATCH_3.morph" \ + "$field" name="$MATCH_4" "$MATCH_5"; } 2>&1 | + grep -qFe "Object does not contain $MATCH_5" + IMPLEMENTS WHEN the user edits the stratum (\S+) in the system (\S+) in branch (\S+) cd "$DATADIR/workspace/$MATCH_3/test:morphs" run_morph edit "$MATCH_2" "$MATCH_1" |