use v6.d;

# use lib <. lib>;

use LLM::Functions;
use Text::SubParsers;

use Test;

my $echo = False;

plan *;

## 1
ok llm-configuration('gemini');

## 2
my $prompt2 = "Make a recipe for the given phrase.";
#note llm-function($prompt2, llm-evaluator => llm-configuration('gemini'))("greek salad". :$echo);
ok llm-function($prompt2, llm-evaluator => llm-configuration('gemini'))("greek salad", :$echo);

## 3
isa-ok llm-function($prompt2, e => 'gemini')("greek salad", :$echo),
        Str,
        'greek salad';

## 4
my &prompt3 = { "How many $^a can fit inside one $^b?" };
#note llm-function(&prompt3, llm-evaluator => 'gemini')('basket balls', 'toyota corolla 2010');
is llm-function(&prompt3, llm-evaluator => 'gemini')('basket balls', 'toyota corolla 2010', :$echo).all ~~ Str,
        True,
        'basket balls in toyota corolla 2010';

## 5
my &prompt4 = -> :$dish, :$cuisine { "Give a recipe for $dish in the $cuisine cuisine." }
is llm-function(&prompt4, llm-evaluator => 'gemini')(dish => 'salad', cuisine => 'Russian', max-tokens => 300, :$echo).all ~~ Str,
        True,
        'recipe';

## 6
# See issue:
#       Allow model to be passed to llm-chat for gemini #2
#       https://github.com/antononcube/Raku-LLM-Functions/issues/2
subtest {
        # See llm-prompt('NumericOnly') or
        # https://github.com/antononcube/Raku-LLM-Prompts/blob/cbb98ddf5ed011ae4cfd664f8b9750d65ad834ca/resources/prompts.json#L6117
        my $numOnly = q:to/END/;
        Respond with numerical responses only. Exclude any non-numerical responses. Do not include include any letters.
        Change words into numbers if possible, for example instead of "1 billion" write "1000000000".';
        END
        my &f6 = llm-function(
                { "What is the average speed of $_ ?" ~ $numOnly },
                form => sub-parser(Numeric),
                llm-evaluator => llm-configuration("gemini", model => "gemini-1.5-flash"));

        # note &f6('a car on a USA highway', :$echo);
        isa-ok &f6('a car on a USA highway', :$echo), Numeric:D;
}

## PaLM is obsolete
#`[
## 6
my &f6 = llm-function(
        { "What is the average speed of $_ ?" },
        form => sub-parser(Numeric),
        llm-evaluator => 'PaLM');

#note &f6('a car on a USA highway', :$echo);
isa-ok &f6('a car on a USA highway', :$echo), Positional;
]
done-testing;
