language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-18 19:10:18 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Add a list decoder

Browse source
This commit is contained in:
Ayaz Hafiz 2022-08-03 14:57:38 -05:00
parent 429ebbc830
commit ab3ff6e842
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
3 changed files with 138 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

23
crates/compiler/test_derive/src/decoding.rs
View file

@ -4,9 +4,13 @@
// For the `v!` macro we use uppercase variables when constructing tag unions.
#![allow(non_snake_case)]
use crate::{util::check_immediate, v};
use crate::{
util::{check_immediate, derive_test},
v,
};
use insta::assert_snapshot;
use roc_module::symbol::Symbol;
use roc_types::subs::{Subs, Variable};
use roc_types::subs::Variable;
use roc_derive_key::DeriveBuiltin::Decoder;
@ -27,3 +31,18 @@ fn immediates() {
check_immediate(Decoder, v!(F64), Symbol::DECODE_F64);
check_immediate(Decoder, v!(STR), Symbol::DECODE_STRING);
}
#[test]
fn list() {
derive_test(Decoder, v!(Symbol::LIST_LIST v!(STR)), |golden| {
assert_snapshot!(golden, @r###"
# derived for List Str
# Decoder (List val) fmt | fmt has DecoderFormatting, val has Decoding
# List U8, fmt -[[] + fmt:Decode.list(21):3]-> { rest : List U8, result : [Err [TooShort], Ok (List val)] } | fmt has DecoderFormatting, val has Decoding
# Specialization lambda sets:
# @<1>: [[] + fmt:Decode.list(21):3] | fmt has DecoderFormatting
#Derived.decoder_list = Decode.list Decode.decoder
"###
)
})
}