X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=goaljobs-reference.pod;h=da98946e20d3401f2f5378bc87086ad5300e2c6c;hb=86d6a0878d9dad8593b3d07338b8f01bf9593d1d;hp=2ca27c7bddbf26d92e2dcafbd74010d7c666f6fa;hpb=087ea609510e7c85e1048219f4aa96348d1eaeda;p=goaljobs.git

diff --git a/goaljobs-reference.pod b/goaljobs-reference.pod
index 2ca27c7..da98946 100644
--- a/goaljobs-reference.pod
+++ b/goaljobs-reference.pod
@@ -279,6 +279,7 @@ sees one it will ensure it passes the tests:
  let goal git_commit_tested commit =
    let key = sprintf "repo-tested-%s" commit in
    target (memory_exists key);
+   onrun (fun () -> memory_set key "1");
  
    sh "
      git clone %s test
@@ -286,10 +287,7 @@ sees one it will ensure it passes the tests:
      ./configure
      make
      make check
-   " repo_url;
-
-   (* Record that this commit was tested successfully. *)
-   memory_set key "1"
+   " repo_url
  
  every 30 minutes (fun () ->
    let commit = shout "cd %s && git rev-parse HEAD" repo in
@@ -370,10 +368,9 @@ A common pattern is:
 let goal tested version =
   let key = "myapp-tested-" ^ version in
   target (memory_exists key);
+  onrun (fun () -> memory_set key "1");
  
   (* some code to test this version *)
- 
-  memory_set key "1"
 
 Note in that example the value C<1> is arbitrary.  You just want to
 store I<any> value so that a later call to C<memory_exists> will