tests: Import (guix build utils) in the marionette.
* gnu/tests/install.scm (%minimal-os)[marionette-configuration](imported-modules): Add (guix build utils). * gnu/tests/base.scm (run-basic-test)["skeletons in home directories"]: Use (guix build utils) explicitly.
This commit is contained in:
		
							parent
							
								
									57945dd70c
								
							
						
					
					
						commit
						f9d55c4925
					
				
					 2 changed files with 3 additions and 2 deletions
				
			
		| 
						 | 
					@ -223,8 +223,8 @@ info --version")
 | 
				
			||||||
                                  (operating-system-user-accounts os))))
 | 
					                                  (operating-system-user-accounts os))))
 | 
				
			||||||
              (marionette-eval
 | 
					              (marionette-eval
 | 
				
			||||||
               `(begin
 | 
					               `(begin
 | 
				
			||||||
                  (use-modules (srfi srfi-1) (ice-9 ftw)
 | 
					                  (use-modules (guix build utils) (srfi srfi-1)
 | 
				
			||||||
                               (ice-9 match))
 | 
					                               (ice-9 ftw) (ice-9 match))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
                  (every (match-lambda
 | 
					                  (every (match-lambda
 | 
				
			||||||
                           ((user home)
 | 
					                           ((user home)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -79,6 +79,7 @@
 | 
				
			||||||
    (services (cons (service marionette-service-type
 | 
					    (services (cons (service marionette-service-type
 | 
				
			||||||
                             (marionette-configuration
 | 
					                             (marionette-configuration
 | 
				
			||||||
                              (imported-modules '((gnu services herd)
 | 
					                              (imported-modules '((gnu services herd)
 | 
				
			||||||
 | 
					                                                  (guix build utils)
 | 
				
			||||||
                                                  (guix combinators)))))
 | 
					                                                  (guix combinators)))))
 | 
				
			||||||
                    %base-services))))
 | 
					                    %base-services))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue