curl -X POST -H "Accept: application/json" -d '{ 
  "ns":"posta", 
  "db":"posta", 
  "ac":"Author", 
  "user":"john.doe", 
  "email_address":"[email protected]", 
  "pass":"123456"
}' http://localhost:8000/signup

DEFINE ACCESS Author ON DATABASE TYPE RECORD
  SIGNIN (
    SELECT * FROM Author WHERE email IS $email AND crypto::argon2::compare(pass, $pass)
  )
  SIGNUP (
    CREATE Author CONTENT {
      name: $name,
      email_address: $email_address,
      pass: crypto::argon2::generate($pass),
    }
  );

DEFINE FUNCTION fn::Post::new($body: string, $title: string, $tags: array<string>) -> object {
  LET $post = CREATE ONLY Post CONTENT {
    body: $body,
    title: $title,
  } RETURN AFTER;

  FOR $tag IN $tags {
    LET $tag = string::lowercase($tag);
    IF (array::is_empty(SELECT * FROM Tag WHERE tag IS $tag)) {
      CREATE ONLY Tag CONTENT { tag: $tag };
    };
    LET $post_id = $post.id;
    LET $tag_id = (SELECT id FROM Tag WHERE tag IS $tag);
    RELATE $post_id->tagged->$tag_id;
  };
  RETURN $post;
} PERMISSIONS FULL;

DEFINE EVENT post_edited ON TABLE Post
  WHEN $event IS "UPDATE" THEN {
    IF array::is_empty(SELECT id FROM published WHERE in IS $auth.id AND out IS $value.id) {
      THROW "Cannot edit unowned resource";
    };
    RELATE ($auth.id)->edited->($value.id) CONTENT { diff_ops: value::diff($before, $after) };
  };

RELATE ($auth.id)->comment->$post CONTENT { message: $message }

SELECT * FROM Post WHERE title @@ 'SurrealDB';

SELECT search::score(1) AS score FROM Post WHERE body @1@ 'graph-based database' ORDER BY score DESC;

@testdef comment_post [] {
  let database = surrealdb_setup
  let authors = $database.bind | make_random_authors 2 | each {|it| $it | insert bind ($database | get bind)}
  let post = make_new_post $authors.0 | get result
  let message = random chars
  let comment = {
    query: "RELATE ($auth.id)->comment->$post CONTENT { message: $message };"
    args: { post: ($post | get id) message: $message }
  } | send_query $authors.1 | first
  assert equal $comment.status "OK"
  let comments = { query: "SELECT * FROM comment" args: {}} | send_query $authors.1 | first
  assert equal $comments.status "OK"
  assert length $comments.result 1
  assert equal ($comments | get result | first | get message) $message
  surrealdb_teardown
}