add ut

Author: liangyuanpeng

kclvm/runtime/src/net/mod.rs

@@ -937,6 +937,25 @@ pub extern "C-unwind" fn kclvm_net_CIDR_netmask(
 mod test_net {
     use super::*;
 
+    #[test]
+    #[allow(non_snake_case)]
+    fn test_ip6_to_ip4() {
+        let cases = [
+            ("::FFFF:192.168.1.10", "192.168.1.10"),
+        ];
+        let mut ctx = Context::default();
+        for (ip6, expected) in cases.iter() {
+            unsafe {
+                let actual = &*kclvm_net_IP6_to_IP4_string(
+                    &mut ctx,
+                    &ValueRef::list(Some(&[&ValueRef::str(ip6)])),
+                    &ValueRef::dict(None),
+                );
+                assert_eq!(&ValueRef::str(expected), actual, "{} positional", ip6,);
+            }
+        }
+    }
+
     #[test]
     fn test_split_host_port() {
         let cases = [

test/grammar/builtins/net/to_ip4/main.k

@@ -1 +1,3 @@
+import net
+
 ip0 = net.to_IP4("::FFFF:192.168.1.10")