Add integration test for environment variable in virtual machine

Modules/Virtual_machine/Tests/Test.rs

@@ -82,7 +82,7 @@ extern "C" fn Test_string(
 
 #[test]
 fn Integration_test() {
-    Task::Initialize().expect("Failed to initialize task manager");
+    let Task_instance = Task::Initialize().expect("Failed to initialize task manager");
 
     Users::Initialize().expect("Failed to initialize users manager");
 
@@ -96,9 +96,18 @@ fn Integration_test() {
 
     File_system::Initialize(File_system).unwrap();
 
+    // Set environment variables
+    let Task = Task_instance.Get_current_task_identifier().unwrap();
+
+    Task_instance
+        .Set_environment_variable(Task, "Path", "/:/bin:/usr/bin")
+        .unwrap();
+
+    // Load the WASM binary
     let Binary_buffer =
         include_bytes!("./WASM_test/target/wasm32-wasip1/release/Virtual_machine_WASM_test.wasm");
 
+    // Register the functions
     pub struct Registrable {}
 
     impl Registrable_trait for Registrable {
@@ -116,6 +125,7 @@ fn Integration_test() {
 
     let User_data = Data_type::New();
 
+    // Instantiate the environment
     let (_Runtime, _Module, Instance) = Instantiate_test_environment(
         Binary_buffer,
         Registrable {},

Modules/Virtual_machine/Tests/WASM_test/src/main.rs

@@ -134,6 +134,16 @@ fn Test_file() {
     }
 }
 
+fn Test_environment_variables() {
+    println!("Environment variables:");
+
+    let Environment = std::env::vars();
+
+    for (Key, Value) in Environment {
+        println!("{}: {}", Key, Value);
+    }
+}
+
 fn Test_directory() {
     create_dir("/test_dir").unwrap();
 
@@ -171,5 +181,7 @@ fn main() -> Result<(), ()> {
 
     Test_directory();
 
+    Test_environment_variables();
+
     Ok(())
 }