···

       
73
       
73
       
 
       
    $machine->succeed("su alice -c 'test -f ~alice/b'");

     

       
74
       
74
       
 
       
    $machine->succeed(qq%test "\$(cat ~alice/b)" = "c"%);

     

       
75
       
75
       
 
       


     

       
76
       
76
       
+
       
    # Catch https://github.com/NixOS/nixpkgs/issues/16766

     

       
77
       
77
       
+
       
    $machine->succeed("su alice -c 'ls -lh ~alice/'");

     

       
78
       
78
       
+
       


     

       
76
       
79
       
 
       
    $machine->sendChars("logout\n");

     

       
77
       
80
       
 
       
  '';

     

       
78
       
81
       
 
       
})