tests/Tests/Organization.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module Tests.Organization where
   4
   5 import Country.Identifier qualified as Country
   6 import Data.Tree qualified as Tree
   7 import Literate.Invoice.Invoice
   8 import Literate.Organization
   9 import Literate.Prelude
  10
  11 bureau1 =
  12   Address
  13     { addressText =
  14         [ "3, place du Monument"
  15         , "Mairie - Bureau 1"
  16         ]
  17     , addressCity = "Gentioux-Pigerolles"
  18     , addressZipCode = "23340"
  19     , addressCountry = Country.france
  20     }
  21
  22 julmInfo =
  23   organization
  24     { orgEntity =
  25         entity
  26           { entityId = EntityId 1
  27           , entityName = Just "julminfo"
  28           , entityAddress = Just bureau1
  29           , entitySIREN = Just "942798083"
  30           , entityIBAN =
  31               Just
  32                 IBAN
  33                   { ibanCountry = Country.france
  34                   , ibanCheckDigits = 18
  35                   , ibanBasicBankAccountNumber = "20041010082037353D02912"
  36                   }
  37           }
  38     , orgParts =
  39         [ "Admin" := organization{orgEntity = julm}
  40         ]
  41     }
  42
  43 julm =
  44   entity
  45     { entityId = EntityId 2
  46     , entityName = Just "Julien Moutinho"
  47     , entityEmail = Just "julm@sourcephile.fr"
  48     -- , entityPhone = Just "+33 7 55 60 42 77"
  49     }
  50
  51 nixosFoundationNGITeam =
  52   organization
  53     { orgEntity =
  54         entity
  55           { entityId = EntityId 3
  56           , entityName = Just "Stichting NixOS Foundation"
  57           , entityAddress =
  58               Just
  59                 Address
  60                   { addressText =
  61                       [ "Korte Lijnbaanssteeg 1-4318"
  62                       ]
  63                   , addressZipCode = "1012 SL"
  64                   , addressCity = "Amsterdam"
  65                   , addressCountry = Country.netherlands
  66                   }
  67           }
  68     , orgParts =
  69         [ "Admin" :=
  70             organization
  71               { orgEntity =
  72                   entity
  73                     { entityId = EntityId 4
  74                     , entityEmail = Just "finance@nixos.org"
  75                     }
  76               }
  77         , "Department" :=
  78             organization
  79               { orgEntity =
  80                   entity
  81                     { entityId = EntityId 5
  82                     , entityName = Just "Nix@NGI Team"
  83                     , entityEmail = Just "ngi@nixos.org"
  84                     }
  85               , orgParts =
  86                   [ "Admin" :=
  87                       organization
  88                         { orgEntity =
  89                             entity
  90                               { entityId = EntityId 6
  91                               , entityName = Just "Daniel Ramirez"
  92                               , entityEmail = Just "danielramirez5@protonmail.com"
  93                               }
  94                         }
  95                   ]
  96               }
  97         ]
  98     }
  99
 100 -- "legal" :=
 101 -- , entityEmail =
 102 --     [ "team" := "ngi@nixos.org"
 103 --     , "team" := "Nix@NGI"
 104 --     , "admin" :=
 105 --     , "admin" := "danielramirez5@protonmail.com"
 106 --     , "admin" := "finance@nixos.org"
 107 --     ]