add test

Author: schnittchen

src/platforms/esp32/test/main/test_erl_sources/CMakeLists.txt

@@ -38,6 +38,7 @@ function(compile_erlang module_name)
 endfunction()
 
 compile_erlang(test_esp_partition)
+compile_erlang(test_esp_timer_get_time)
 compile_erlang(test_file)
 compile_erlang(test_wifi_example)
 compile_erlang(test_list_to_atom)
@@ -60,6 +61,7 @@ add_custom_command(
     COMMAND HostAtomVM-prefix/src/HostAtomVM-build/tools/packbeam/PackBEAM -i esp32_test_modules.avm
         HostAtomVM-prefix/src/HostAtomVM-build/libs/atomvmlib.avm
         test_esp_partition.beam
+        test_esp_timer_get_time.beam
         test_file.beam
         test_wifi_example.beam
         test_list_to_atom.beam
@@ -79,6 +81,7 @@ add_custom_command(
     DEPENDS
         HostAtomVM
         "${CMAKE_CURRENT_BINARY_DIR}/test_esp_partition.beam"
+        "${CMAKE_CURRENT_BINARY_DIR}/test_esp_timer_get_time.beam"
         "${CMAKE_CURRENT_BINARY_DIR}/test_wifi_example.beam"
         "${CMAKE_CURRENT_BINARY_DIR}/test_file.beam"
         "${CMAKE_CURRENT_BINARY_DIR}/test_list_to_atom.beam"

src/platforms/esp32/test/main/test_erl_sources/test_esp_timer_get_time.erl

@@ -0,0 +1,33 @@
+%
+% This file is part of AtomVM.
+%
+% Copyright 2023 Davide Bettio <davide@uninstall.it>
+%
+% Licensed under the Apache License, Version 2.0 (the "License");
+% you may not use this file except in compliance with the License.
+% You may obtain a copy of the License at
+%
+%    http://www.apache.org/licenses/LICENSE-2.0
+%
+% Unless required by applicable law or agreed to in writing, software
+% distributed under the License is distributed on an "AS IS" BASIS,
+% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+% See the License for the specific language governing permissions and
+% limitations under the License.
+%
+% SPDX-License-Identifier: Apache-2.0 OR LGPL-2.1-or-later
+%
+
+-module(test_esp_timer_get_time).
+
+-export([start/0]).
+
+start() ->
+    T = esp:timer_get_time(),
+    test_pos_int(T).
+
+test_pos_int(X) when is_integer(X) andalso X >= 0 ->
+    ok;
+test_pos_int(X) ->
+    error.
+

src/platforms/esp32/test/main/test_main.c

@@ -180,6 +180,12 @@ TEST_CASE("test_esp_partition", "[test_run]")
     TEST_ASSERT(term_to_int(ret_value) == 0);
 }
 
+TEST_CASE("test_esp_timer_get_time", "[test_run]")
+{
+    term ret_value = avm_test_case("test_esp_timer_get_time.beam");
+    TEST_ASSERT(ret_value == OK_ATOM);
+}
+
 // SDMMC works all esp-idf versions for esp32 - still no support c3.
 // only run in QEMU (eg. OPENETH configured)
 #if !CONFIG_IDF_TARGET_ESP32C3 && CONFIG_ETH_USE_OPENETH