Remove petrify and unpetrify commands

We don't use this any more, and instead prefer to always keep
definitions.git petrified, and update the refs ourselves.

branch-from-image still uses some of the remaining petrify code.

2 files changed, 0 insertions, 83 deletions

diff --git a/yarns/branches-workspaces.yarn b/yarns/branches-workspaces.yarn
index 642beadd..995a9450 100644
--- a/yarns/branches-workspaces.yarn
+++ b/yarns/branches-workspaces.yarn
@@ -406,41 +406,6 @@ branch checkout.
     THEN  morph ran command in test/morphs in foo
     AND   morph ran command in test/test-chunk in foo
 
-Explicit petrification
-----------------------
-
-We petrify branches explicitly (though this may later change so that
-`morph branch` does it automatically). To test this, we create a branch,
-petrify it, and verify that every ref looks like a SHA1. We then
-unpetrify and verify that we have all the same refs as before.
-
-    SCENARIO    morph petrifies and unpetrifies
-    GIVEN       a workspace
-    AND         a git server
-    WHEN        the user creates a system branch called foo
-    AND         the user pushes the system branch called foo to the git server
-    AND         remembering all refs in foo
-    AND         petrifying foo
-    THEN        foo is petrified
-
-Petrifying a morphology should not cause it to start having repo or ref
-fields when referring to strata, when it didn't before.
-
-    AND  in branch foo, system systems/test-system.morph refers to test-stratum without repo
-    AND  in branch foo, system systems/test-system.morph refers to test-stratum without ref
-
-Unpetrify must put the morphologies back in the same logical state they
-were in before.
-
-    WHEN        unpetrifying foo
-    THEN        foo refs are as remembered
-
-Unpetrifying a morphology should not cause it to start having repo or
-ref fields when referring to strata, when it didn't before.
-
-    AND  in branch foo, system systems/test-system.morph refers to test-stratum without repo
-    AND  in branch foo, system systems/test-system.morph refers to test-stratum without ref
-
 Generating a manifest works
 
     SCENARIO    morph generates a manifest
diff --git a/yarns/implementations.yarn b/yarns/implementations.yarn
index a28fda54..24f67a1b 100644
--- a/yarns/implementations.yarn
+++ b/yarns/implementations.yarn
@@ -518,54 +518,6 @@ Running shell command in each checked out repository:
     grep -Fx "$MATCH_1" "$DATADIR/morph.stdout"
     grep -Fx "$DATADIR/workspace/$MATCH_2/$MATCH_1" "$DATADIR/morph.stdout"
 
-Petrification and unpetrification:
-
-    IMPLEMENTS WHEN remembering all refs in (\S+)
-    cd "$DATADIR/workspace/$MATCH_1/test/morphs"
-    list_refs $(find . -type f) > "$DATADIR/refs.remembered"
-
-    IMPLEMENTS THEN (\S+) refs are as remembered
-    cd "$DATADIR/workspace/$MATCH_1/test/morphs"
-
-    # FIXME: petrify/unpetrify doesn't work quite right at this time:
-    # petrify can change a ref to a stratum to point at the system
-    # branch, but does it without adding an unpetrify-ref, and so
-    # unpetrify doesn't undo the change. We ignore this bug for the
-    # time being, in order to make the test suite pass. When the
-    # petrification code has been cleaned up to not be so hairy,
-    # we'll fix the test and the code.
-    #
-    # We would like to verify the result like this:
-    #
-    #   list_refs $(find . -type f) > "$DATADIR/refs.now"
-    #   diff -u "$DATADIR/refs.remembered" "$DATADIR/refs.now"
-    #
-    # However, due to the bug, we have to do it in a more complicated
-    # manner.
-
-    list_refs $(find . -type f) |
-    while read filename ref
-    do
-        orig=$(awk -v "f=$filename" '$1 == f { print $2 }' \
-            "$DATADIR/refs.remembered")
-        if [ "$orig" != "$ref" ] && [ "$ref" != "$MATCH_1" ]
-        then
-            die "Un-petrified ref: $filename $ref (should be $orig)"
-        fi
-    done
-
-    IMPLEMENTS WHEN petrifying (\S+)
-    cd "$DATADIR/workspace/$MATCH_1/test/morphs"
-    run_morph petrify
-
-    IMPLEMENTS WHEN unpetrifying (\S+)
-    cd "$DATADIR/workspace/$MATCH_1/test/morphs"
-    run_morph unpetrify
-
-    IMPLEMENTS THEN (\S+) is petrified
-    cd "$DATADIR/workspace/$MATCH_1/test/morphs"
-    assert_morphologies_are_petrified "$MATCH_1" $(find . -type f)
-
 Generating a manifest.
 
     IMPLEMENTS GIVEN a system artifact