37 lines
853 B
Standard ML
Executable file
37 lines
853 B
Standard ML
Executable file
#!/usr/bin/env fun
|
|
|
|
/*
|
|
* This file is part of the Fun programming language.
|
|
* https://fun-lang.xyz/
|
|
*
|
|
* Copyright 2025 Johannes Findeisen <you@hanez.org>
|
|
* Licensed under the terms of the Apache-2.0 license.
|
|
* https://opensource.org/license/apache-2-0
|
|
*
|
|
* Added: 2026-06-03
|
|
*/
|
|
|
|
/*
|
|
* Simple Redis test using Fun builtins backed by hiredis.
|
|
*
|
|
* Simple key/value set-get-delete
|
|
*/
|
|
|
|
h = redis_connect('127.0.0.1', 6379)
|
|
key = 'fun:examples:redis:key'
|
|
|
|
// Clean slate
|
|
_ = redis_cmd(h, 'DEL ' + key)
|
|
|
|
// Set and get
|
|
print(redis_cmd(h, 'SET ' + key + ' 42'))
|
|
print('GET -> ' + redis_cmd(h, 'GET ' + key))
|
|
|
|
// Check existence
|
|
print('EXISTS -> ' + to_string(redis_cmd(h, 'EXISTS ' + key)))
|
|
|
|
// Delete
|
|
print('DEL -> ' + to_string(redis_cmd(h, 'DEL ' + key)))
|
|
print('EXISTS(after DEL) -> ' + to_string(redis_cmd(h, 'EXISTS ' + key)))
|
|
|
|
redis_close(h)
|